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1. PURPOSE 



THE SENSE DSW PROGRAM IS OESIGNEP TO CONTINUOUSLY SENSE THE OSM, 
USING THE AREA CODE SET INTO THE DATA ENTRY SWITCHES. THE PROGRAM 
WILL PRINT THE FIRST SENSE WORD RECEIVED AND THEREAFTER PRINT THE 
WORD RECEIVED ANYTIME IT CHANGES. THE INITIAL SENSE HILL BE 
N0N-RESETA3LE. THE PROGRAM WILL THEN SENSE RESETARLE, FOLLOWEO BY A 
SENSE N0N-RESE.TABLE. THEREAFTER ALL SENSES WILL BE NON-RESET ABLE, 
UNLESS THE WORO RECEIVED CHANGES. FOLLOWING ANY CHANGE IN THE WORD, 
THE NEW WORD WILL BE PRINTED AND A RESETABLE SENSE ISSUED. 



REQUIREMENTS 

2.1 PROGRAM *< 



I RE ME NTS 



2.2 



THE BASIC DIAGNOSTIC LOADER IS REQUIREO, TO LOAO THE SENSE OSM 

PROGRAM. 

EQUIPMENT REQUIREMENTS 

A. 1**2 CARD READ/PUNCH OR 105* PAPER TAPE READER. 
8. 1053/1816 TYPEWRITER. OR 1443 PRINTER. 
C. 1800 PROCESSOR/CONTROLLER* 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR TKE It, 00 SYSTEM 
SENSE DSW EXERCISE* 

3. OPERATING PROCEDURE 

3.1 PROGRAM LOADING 

REFER TO BASIC LOADER DOCUMENTATION FOR LOADING INSTRUCTIONS. AFTER 
LOADING PROGRAM WILL STOP AT WAIT 1. SEE SECT. 3.5, PROGRAM HALTS. 

3.2 OPERATION 

3.2.1 TYPICAL OPERATING PROCEOURE 

A. WITH PROGRAM STC«PEO AT WAIT I. SET THE DESIRED AREA CODE PLUS 
ANY NECESSARY MODIFIERS IN THE DATA ENTRY SWITCHES EXACTLY AS 
THEY SHOULD APPFAR IN THE SENSE OSW IOCC WORD. , SEE TABU. 1. 

NOTE. 00 NOT SET THE FUNCTION IN THE SWITCHES. ONLY THE ARE* 
CODE AND MODIFIERS SHOULD BE SET. 

B. PRESS START BUTTON. 

C. HITH PROGRAM STOPPED AT WAIT 2, SET OPTIONS PER TABLE 2. 

TABLE 1 - AREA CODE - REQUIRED 

1. SWITCHES MAY BE SET PRIOR TO PROGRAM LOADING, OR AT WAIT 1. 

2. ONCE PROGRAM EXECUTION HAS STARTED t.\l CHANGE IN THESE SWITCHES WILL 
BECOME EFFECTIVE OMY IF STOP, RESET, AND START BUTTONS ARE PRESSED, 
WHICH WILL RETURN PROGRAM TO WAIT 1* 

♦*♦**»*♦»»♦»♦«»»•»•••♦•••»••*•»**»•»*•*••*«••»«*•***»•»••*••*»•»•»*»*»•*•**••••• 

• OATA ENTRY SWITCHES • 

• 1 2 3 * 5 6 7 8 9 10 II 12 13 1* IS • DESCRIPTION 

• . 

• XXX X NOT TO BE USED 

• Y V Y V Y DESIREO AREA CODE 

• H M M M M M M MODIFIERS AS NECESSARY 

3.2.2 OPERATING OPTIONS 

IF OPTIONS ARE DESIRED SET SWITCHES DESIREO FROM TABLE 2 AND 
OEPRESS THE START BUTTON. 

TABLE 2 - OPERATING OPTIONS 

I. THESE SWITCHES MAY BE CHANGED AT ANY TIME. 

OATA ENTRY SWITCHES •DESCRIPTION 

O 1 2 3 A 9 A T 8 9 10 11 13 14 IS • 

* I ..BYPASS PRINTOUT 

i USE 1**3 AS OUTPUT PRINTER 

•»*»•»*»«#•♦»#»*#•»•*##*»••••»•••»*••»*••••••••»»»»•••»••*♦•••*••*••••*••••*•• 

3.3 TERMINATING PR0CEDU8E 
THIS PROGRAM WILL RUN CONTINUOUSLY. TO TERMINATE, OEPRESS STOP BUTTON 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEH 
SENSE DSM EXERCISER 

3. « RESTART PROCEDURE 

DEPRESS STOP, RESET, ANO START BUTTONS. PROGRAM SNOULB RFTubu rn 
WIT I. IF THIS DOES NOT OCCUR, PROGRAM MUST BE rSeS! 

3.5 PROGRAM HALTS 

PROGRAM WAITS ARE USEO IN THIS PROGRAM, AND ARE IDENTIFIFO M 
REFERENCING THE 8 REG ANO I REG. IDENTIFIED Br 

A PROGRAM WAIT IS OF THE FORM, 

30XX, I B RE6 I. 

A DESCRIPTION OF THF INDIVIDUAL PROGRAM MA1T< r»m be en,,.,. ... ..., 

BEGINNING OF THE PROGRAM tl SUNG.^pScTwAffVs^RTmON" fJm OMS 
IT IS INCIUOEO TO SHOW THE FOPMAT OF THE LISTING. AND IT IS J£ *' 

NECESSARILY A DESCRIPTION OF AN ACTUAL WAIT. ** 

••—•—•—•• *"*•••**•••♦•••♦............»...•....•...,»,.. 

3001 01ED DC WAITl»l 
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WAIT 1 

ONE OF THE METERED t/0 UNITS 
FAILEO TO SEND A RESPONSE 
INTERRUPT TO THE PROGRAM. INDEX 
REGISTER 1 WILL HAVE THE ADDRESS 
OF THg IOCC. THE AREA CODE KILL 
INDICATE THE I/O UNIT NOT READY. 
IF A 2401/02 ORIVE IS NOT READY, 
PROGRAM WILL NOT STOP AT WAIT 1. 



8 REG, I FIRST 4 DIGIT GROUP 1 CORRESPONDS TO B REG READING. 
I REG, I SECOND * DIGIT GROUP J CORRESPONDS TO I REG READING. 
A. PRINTOUTS 

THIS PROGRAM HAS ONLY ONE PRINTOUT. THIS PRINTOJT wti I nrr.i. «. »„e 
INITIAL SENSE OF THE DSW AND ON ANY CHANGE OF J^SWSE SSo * 

RECEIVED. THE PRINTOUT APPEARS AS FOLLOMS. 

FID MIO DSM RECEIVED 

BAOO AOni XXXX 

5. COMMENTS 

THIS PROGRAM IS DESIGNED PRIMARILY AS A SCOPING AID. THE PROGRAM MAC 
NO DIAGNOSTIC ABILITY. BUT WILL MERELY SENSE DSW OF SPECIFIC 
DEVICE. THE PRINTOUT IS PROVIDEO AS A CONVENIENCE. ONE POSSIBLE U« 

PR S «NT WK^ A n% T EC °E N ;vES: RE " 0,NTS C0UL ° " *™™*»^Z™lV* 

6. APPENDIX (NONE) 
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02 OC 



3001 0137 



3002 0130 



3003 010C 



3004 0263 



3005 

012C 6A0O 
0120 00 0C0001EC 
C12F 00 OCOOOIEE 

0131 C856 

0132 00 DCOOOOOO 



ABf 

ORG 



/3001 



0134 


1000 


0135 


C051 


0136 


3001 


0137 


064C 


0138 


C051 


0139 


F04C 


013A 


D04C 


013B 


C04B 


013C 


3002 


0130 


0848 


013E 


004 C 


01 3F 


0844 


0140 


C049 


0141 


1802 


0142 


4804 


0143 


7013 


0144 


C046 



0145 00 0400018E 
0147 00 440001A4 
0149 00 CC0001C4 
014B 00 0C000196 



XXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXX PROGRAMED WAITS XXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxkxxxxJxxxxJ 



BtGN 



START 
WAIT1 



WAI12 



PRINT 



014 D 
014E 
014F 
0150 
0151 

on? 

0154 
01' 5 
0157 
0158 













00 



00 







DAie 
tc to. 



0836 

C03B 

1009 

4828 

7003 

440001F2 

7002 

440001D6 

C02F 

F034 



28FE866 
415120 



PR14} 
8YPAS 



DC 



DC 



DC 



DC 



ORG 

DC 

XIO 

XIO 

1D0 

STD 

HOP 
ID 

WAIT 
XIO 

10 
f OR 
S10 

to 

WAIT 

XIO 
STO 

XIO 
10 
SRA 
BSC 
Mt,X 
ID 

SltJ t 
BSI I 
I 00 I 

sin i 

XIO 
ID 
SLA 
BSC 

mox 

BSI I 

MDX 
PSI I 
I 
I OR 



WAIT1+1 



WAIT2«1 



WA!T3«I 



WAIT4+1 



300 

/BAOO 

MASKO 

MASK! 

REST 





DSW*1 

1 

ROBS" 

BSW 

DSW 

DSW*1 

DSW.l 

2 

OSW 
DSW1 

RDBSW 

BSW 

2 

E 

BYPAS 

0SW1 

hfXKD 

HtXCV 

H( XCO 

MSC 

RORSW 

BSW 

9 

*Z 

PR143 

LOGC 

BYPAS 

PR43 

DSW+1 

ONE 



04»»OV66 
415233 



WAIT FOR AREA CODE 
ANO MODIFIER TO BE 
SET IN THE DATA SWS. 
PUSH START TO CONTINUE. 

WAIT FCR PROGRAM CONTROL 
SWITCHES TO BE SET. 
PUSH START TO CONTINUE. 

1443 PRINTER IS SOT 
READY. MAKE THE 
PRINTER HEADY AND 
PUSH START TO 
CONTINUE. 

THE TYPEWRITER IS 
NOT READY. MAKE THE 
TYPEWRITER READY AND 
PUSH START TO CONTINUE. 



PID 

MASK ALL INTRPTS 

GET RESTART 
SET IN ZERO 



GET SNSE IOCC 

WAIT FOR SW SETTING 

READ OATA SWS 

GET OATA SWi 

SET IN SENSE IOCC 

SAVE 

GET AREA CODE 

WAIT FOR CONTROL SWS 

SENSE OEVICE 
SAVE 

REAO OATA SWS 
GET SMS 

IS BYPASS PRINT CN 

VES 

GET SENSE WD 

STORE IN CONV RTN 

GO CONVERT TO HCX SRC 

GET CONVERTED WD 

5ET IN MSG 

REAO DATA SWS 
GET SWS 

SKIP • USE TYPE 

CONVERT AND TYPE SRC 

PRIM ON 1'43 SRC 
GET SENSF IUCC 
ADD RESET BIT 



8BA00O0O 

88A00010 

8BA00020 

8BA00030 

8BA00040 

6BA00050 

8BA00060 

8BA00070 

8BA00080 

8BA00090 

8BA00100 

8BA00110 

8BA00120 

8BA00130 

8BA00140 

8BA00150 

8BAOO160 

8BA00170 

8BA00180 

8BA00190 

8BA00200 

8BA00210 

8BA00220 

8BA00230 

8BA00240 

8BA0O250 

8BA00260 

8BA00265 

8BA00270 

BBA00280 

8BA00290 

8BAO030O 

8BA00310 

8BA0O320 

8BA0O33O 

8BA00340 

83A0O35O 

8BA00360 

8BA00370 

8SA00380 

6BA00390 

8BA00400 

8BA00410 

8BA00420 

86AU0430 

85A00440 

eBA00450 

8BA00460 

8BAC0470 

8PA00480 

8BA00490 

8PA00500 

8LA005I0 

8BA00520 

8BA00530 

88A0054O 

8BA00550 

8BA005£0 

8CAJ057O 

6BA0G580 

fifcA00590 

8BA00603 

8SA00610 

6BA00620 

8BA00630 

8BA00640 

3BA00650 

8BA00660 
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0159 D02D 



STO 



DSW*1 



SAVE 



08BA-0 
i 



015A 
015B 


082 B 
002F 


£ 


XIO 
STO 


DSW 
DSW1 


SENSE WITH RESET 
SArfE 


015C 
0150 
015E 


C02A 
1801 
1001 


SNNRS LD 
SRA 
SLA 


OSW+1 

1 

1 


GET SENSE IOCC 
ELIMINATE RESET BIT 


015F 


D02 7 


4 


STO 


DSW*1 


SAVE 


0160 
0161 
C162 


0825 
002A 
F028 




XIO 
STO 

EOR 


DSW 

DSW2 

DSW1 


SENSE-NC RFSET 
SAVE 


0163 
0165 
0166 
0167 
0168 
0169 


00 4C18015C 
C026 
D024 
081C 
C021 
1802 




BSC 

LD 

STO 

XIO 

LD 

SRA 


L SNNRS, +- 
DSW2 
DSW'l 
RDBSW 
BSW 
2 


HAS WD CHANGED 

GET NEW DSW 

SAVE 

READ DATA SWS 

GET SWS 


016A 
016C 
016D 


00 4C04017F 

C01E 

00 D40001BE 




BSC 

LD 

STO 


t BPAS1.E 

DSW1 
L HEXWO 


BRANCH = BYPAS„ "(T 

GET OSW 

SET 

GO CONVERT SRC 

GET CONVERTED WD 

SET IN MSG 

READ DATA SWS 

GET SWS 


016F 
0171 
0173 
0175 
0176 
0177 


00 440001A4 
00 CC0001C4 
00 DC000196 
080E 
C013 
1009 




esi 

LDD 

STD 

XIO 

LD 

SLA 


L HEXCV 
L HEXCD 
L MSG 

RDBSW 

BSW 

9 


0178 
017A 
01 7C 


00 4C28017D 
00 440001F2 
7002 




BSC 
BSI 

MDX 


L PR433.+7. 
L LOGC 
BPAS1 


BRANCH « USE 1443 
CONVERT AND TYPE SRC 


01 70 00 440001D6 
017F C007 
0180 FOOC 
0161 0005 
0182 0803 
0163 70D8 


PR433 SSI 

BPAS1 LD 
EOR 
STO 
XIO 
MOX 

* 

• 


L PR43 
CSW+1 
ONE 
OSW+1 
DSW 
SNNPS 


PRINT ON 14^3 SPC 

GET SENSE IOCC 

SET RESET BIT 

SAVE 

SENSE WITH RESET 


0184 


0000 


* 
* 


BSS 


E 




0184 C 

0185 C 


018A 

0240 


RDBSh 


DC 
OC 


BSW 
/0240 


READ DATA SWS IOCC 


0186 C 

0187 


0700 
0000 


DSW 

9 


DC 
DC 


/0700 
/OOOO 


SENSE DSW IOCC 


0188 00 4C00012D 


REST 


BSC 


L BEGN 


RESTART 


018A 
C18B 
018C 
0180 


0000 
0000 
0000 
0001 


BSW 

DSW1 

DSW2 

ONE 

• 
• 


DC 
DC 
DC 
DC 






1 


DATA SW STORAGE 
1ST DSW STORAGE 
2ND DSW STORAGE 
CONSTANT ONE 


018E 


0000 


• 


BSS E 




018E 
016F 


0009 
3231 


PRARO 
PRAR1 


DC 

DC 


9 
/3231 


WORD COUNT 
B A 


0190 


OAOA 




DC 


/OAOA 





0191 


0000 




DC 


/OOOO 


C192 


310A 




DC 


/310A 


A 


0193 


0A01 




DC 


/0A01 


1 


0194 


0000 




DC 


/OOOO 


0195 


0000 




DC 


/OOOO 




0196 


0000 


MSG 


DC 


/OOOO 




0197 


0000 




DC 


/OOOO 




OATE 


28FEB66 


C4N0V66 






EC NO. 


415120 


415233 









8BA00670 

8BA00680 

8BA00690 

8BA00700 

8BA00710 

8BA00720 

6BA00730 

8BA007-.0 

88A00750 

8BA00760 

8BA00770 

8BA00780 

8BA00790 

8BA00800 

8BA00810 

8BA00820 

8BA0083G 

8BA00840 

83A00850 

8BA00860 

8BA00870 

8BA00660 

6BA00890 

8BAO0900 

8BA00910 

8SA00920 

88A00930 

8BA00940 

8BA00950 

8BA00960 

8BA00970 

3BA00980 

8BA00990 

89A01000 

8BA01010 

8BA01020 

8BA01030 

8BA01040 

8BA01050 

88A01060 

8BA01070 

8BA01080 

8BA0109O 

8BA01100 

8BA01U0 

8BA01120 

8BA01130 

8BA0U40 

8BA01150 

8BA01160 

8BA01170 

8BA01180 

6BA01190 

8BA01200 

8BA01210 

8BA01220 

8BA01230 

8BA01240 

8BA01I50 

88A01260 

8BA01270 

8BA01280 

8BA01290 

8BA01300 

8BA01310 

8SA01320 

8BA01330 

8BA01340 
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0198 





FFFF 


TERM 

• 


DC 


/FFFF 


TERMINATOR 


8BA01350 
8BA01360 




0199 





6121 


0UTP1 


DC 


/8121 


TPWRITER HSG AREA 


8BA01370 




019A 





0000 


OUTPT 


DC 







8BA01380 




019B 





0030 




DC 







8BA01390 




019C 





0000 




DC 







8BA01400 




C190 





0000 




DC 







8BA01410 




0191 





0000 




DC 







8BA01420 




019F 





0000 




DC 







8BA01430 




C1A0 





0000 




DC 







8BA01440 




01A1 





0000 




DC 







8BA01450 




0IA2 





0000 




DC 







8BA01460 




01A3 





FFFF 


* 


DC 


/FFFF 




8BA01470 
8BA01480 










* 




HEXADECIMAL CONVERSION 


8BA01490 










• 








8BA01500 




01A4 





0000 


HEfCV 


DC 





SE 


6BA01510 




01A5 





6204 


* 


LDX 


2 4 


CONVERSION INDEX 


8BA01520 

8BA0153O 




01A6 





C017 




ID 


HEXWO 


GET WORD TO CONVERT 


8BA01540 




01A7 





1890 




SRT 


16 


SET IN 


8BA01550 




01A8 





1010 




SI A 


16 


CLEAR A 


8BA01560 




01A9 





1084 


HEXC1 


SIT 


4 


GET CHARACTER 


8BA01570 




01AA 





D001 




STO 


HEXCIO 




8BA01580 




01AB 


00 


67000000 


• 


LDX 


L3 


SET CODE TABLE INDEX 


8BA01590 
8BA01600 




01AD 


00 


C70001C6 




LD 


L3 CODEH 


GET CHARACTER 


8BA01610 




01AF 


00 


D60001BE 




STO 


L2 HEXOO-l 


SAVE 


8BA01620 




01B1 





1010 


• 


SLA 


16 




8BA01630 
8BA01640 




01B2 





72FF 




MDX 


2 -1 


CHECK IF DONE 


8BA01650 




01B3 





70F5 


• 


MDX 


HEXC1 




8BA01660 
8BA01670 




01E<« 





COOO 




LO 


HEX00+3 


PACK COOEO WORDS 


8BA01680 




01B5 





1008 




SLA 


8 




8BA01690 




01B6 


c 


E80A 




OR 


HEX00*2 




8BA01700 




01B7 





OOOC 




STO 


HEXCO 




8BA01710 




01 B8 





C007 




LD 


HEXOO+l 




8BA01720 




01B9 





1008 




SLA 


8 




8BA01730 




01BA 





E804 




OR 


HEXOO 




8BA01740 




01BB 





0009 


• 


STO 


HEXCD*1 




8BA01750 
SBA01760 




01BC 


00 


4C80G1A4 


• 
• 
• 


BSC 


I HEXCV 


RETURN TO USER SX 
CONSTANTS 


86A01770 
88A01780 
8BA01790 
8BA0180O 




01BE 





0000 


HEXMD 


DC 





WORD TO CONVERT 


8BA01810 




01BF 





0000 


HEX 00 


DC 





* 


8BA01820 




01C0 





0000 




DC 





* UNPACKED CODED 


8BA01830 




C1C1 





0000 




DC 





* WORD 


8BA01840 




01C2 





0000 


• 


DC 





• 


8BA01850 
8BA0186O 




01C4 




0000 


* 


BSS 


E 




8BA01870 
8BA01880 




01C4 





0000 


HEX CO 


DC 





* PACKED COOED WORD 


8BA01S90 




01C5 





0000 


• 


DC 





• 


8BA01900 

8BA01910 










• 




CONVERSION TABLE 


8BA011920 










• 








8BA01930 




01C6 





OOOA 


COOEH 


Dr 


/OOOA 





8BA01940 




01C7 





0001 




DC 


/0001 


1 


8BA01S50 




0IC8 





0002 




DC 


/0002 


2 


8BA01960 




01C? 





0003 




DC 


/0003 


3 


8BA01970 




01CA 





0004 




DC 


• 0004 


A 


8BA01980 




01CB 





0005 




t)C 


/0005 


5 


8BA01990 




01CC 





0006 




DC 


/0006 


6 


8BA02000 




01C0 





0007 




DC 


/0007 


7 


8BA02010 




01CE 





0008 




DC 


/0008 


8 


8BA02020 




OATE 




28FE666 


04NOV66 






PROG ID 


08BA-0 


EC NO. 


415120 


415233 






PAGE 


2 



01CF 





0009 




DC 


/0009 


9 




BBA0203O 




01D0 





0031 




DC 


/0031 


A 




88A02040 




01D1 





0032 




DC 


/0032 


B 




8BA02O5O 




01D2 





0033 




DC 


/0033 


C 




8BA02060 




01D3 





0034 




DC 


/0034 







8BA02070 




01 04 





0035 




DC 


/0035 


c 




8BA02080 




01DS 





0036 


* 
* 


OC 


/0036 


f 




8BA02090 
8RA02I00 
8BA02110 










* 




PRINT 


ON 1443 PRINTER 


8BA02120 










* 










88A02130 




J1D6 





0000 


PR43 


DC 







SE 


88A02140 




01D7 





C012 




LO 


SNSPR 


GET SENSE 


IOCC 


8BA02150 




0108 





0012 


• 
* 


STO 


SNSPR*1 


SET 




8BA02UO 
8BA02170 
8BA021B0 




01 D9 





0810 




XIO 


SNSPR 


CK FOR PRINTER READY 


8BA02190 
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1.0 PURPOSE 

D^TTr^c D L THE CUSTC *= S ENGINEER WITH A PROGRAM THAT SETS CORE TO SELECTED 
,t\^ RK !l ?G ALL °* V tB£F3 TC BE OPTIMIZED AS SPECIFIED CN LOGIC PAGE SAolS 
ISJ-2 ADJUSTMENT PRCCSK.GEJ OR LOGIC PAGE SD011 ( SJ-4 ADJUSTMENT PROclSuRE) . 

2.0 PRERCUISITES 

2.1 EQUIPMENT RECtJREP'EKT 

1442 CARD READ-S'iKCH OR 1054 PAPER TAPE READER. 

2.2 PROGRAM REQUIREPEKT 

1800 BASIC OIAGSEESTTC LOADER. 
3.0 USE PROCEDURE 
3.1 LOADING 

™° r?c R £L D 5S KS * RE PRDVIDED - THE ONLY DIFFERENCE BETWEEN THE TWO 
DECKS IS THE CORE LOCATIONS INTO WHICH THEY ARE LOADED. THE FIRST 
DECK (C8C0— LC*f CTRE ADJUSTMENT PROGRAM) LOADS INTO THE LAST 2K OF 
LOWER 32K CORE JWC IS USED TO ADJUST THE FIRST 8K OF CORE. 
INCTE. THE FIRST CECK IS ASSEMBLED FOR A 32K MACHINE, THE USER 
nPm« M J«™ ^ G "* 8 CRDER BITS WHEN R E"RENCING THE LISTING AND 

I«qt E « N Sc D ^ e C 2?S 1 ~ HIGH C0RE ADJUSTMENT PROGRAM) LOADS INTO THE 
FIRST 2K OF CORE mm IS ONLY USED TO ADJUST ABOVE 8K. (THIS DECK IS 
NOT USED IF THE MACHINE HAS 8K OR LESS.) 

«I*«M«#S2!S ?*° TECTI0N B 1 T S BEFORE LOADING EITHER PROGRAM. 
SET SENSE/ PROGRAM SWITCHES TO 00. 

SEE 1800 BASIC DIAGfcTJSTIC LOADER DOCUMENTATION FOR LOADING PROCEDURE. 
3.2 OPERATING 

3.2.1 SELECT THE PROGRAP DECK THAT IS RECUIRED FDR THE 8K WHICH IS 

^r S ?Tn^ T f D ,T^I h Lr REF) POTENTIOMETER THAT IS TO BE ADJUSTED. (SEE 
SECTION 3.1.1 FOR: CECK SELECTION.! 

3.2.2 LOAD PROGRAM WITH SENSE/PROGRAM SWITCHES SET TO 00. 

(SEE LOGIC PAGE SAB22 OR SC011, FIGURE 1 FOR V(Z) VALUE.) 

PRSGRAM*wiLL E STeSV;«T S ;. 022 °" SD011 * "^ l "* Vl " ¥ * lUE -» 

3.2.4 SET SENSE/PRCGRAf SWITCHES TO 01. (SELECTING BEST CASE PATTERN .) 

3.2.5 SET MODE SMI TCI* TO »SttJN». 



* 



SET WRITE STORAGE PROTECT SWITCH TO 'YES*. 
SET CHECK STOP SWITCH TO 'ON*. 
DEPRESS THE RESET PUSHBUTTON. 
DEPRESS THE START PUSHBUTTON. 

3.2.6 PROGRAM CCMPLETED AT WAIT 2. 

SET MODE SWITCH TO 'DISPLAY 1 . 

SET WRITE STORAGE PROTECT SWITCH TO «NC«. 

WHILE HOLDING DOWN THE CLEAR STORAGE PUSHBUTTON DEPRESS THE START 

3.2.7 LOWER VtREF) UNTIL A PARITY FAILURE OCCURS. 

RECORD THE VALUE OF V(REF). 

SET SENSE/PROGRAM SWITCHES TO 01. 

SET V(REF) TO A POINT WITHIN THE CPERATABLE RANGE AND REPEAT STEPS 
3.2.5 AND3.2.6. 

.10 RAISE V(REF) UNTIL A PARITY ERROR OCCURS. 
RECORD THE VALUE OF V(REF). 

.11 SET SENSE/PROGRAM SWITCHES TO 02. (SELECTING COMPLEMENT BEST CASE 

.12 SET V(REF) TO A POINT WITHIN THE OPERATASLE RANGE AND REPEAT STEPS 
3.2. 5 t 3.2.6 t AND 3.2.7. 

.13 SET SENSE/PROGRAM SWITCHES TO 02. i SELECTING COMPLEMENT BEST CASE 
PATTERN.! 

.14 SET V(REF) TO A POINT WITHIN THE OPERATABLE RANGE AND REPEAT STEPS 
3.2.5. 3.2.6, AND 3.2.10. 

.15 SET V(Z) AT V(Z) NDMINAL+6 PERCENT. 

.16 REPEAT SETS 3.2.4 THROUGH 3.2.14 FOR THIS VALUE OF V(Z). 

.17 TAKE THE HIGHEST OF THE 4 VALUES OF V(PEF) FOUND BY LOWERING V(REF) 
AND THE LOWEST OF THE FOUR VALUES OF VCREF) FOUND BY RAISING V(REF). 
SET V(REF) TC THE VALUE WHICH IS THE AVERAGE OF THESE TWO VOLTAGES. 

.18 REPEAT STEPS 3.2.1 THROUGH 3.2.17 UNTIL ALL V(REF) POTENTIOMETERS 
HAVE BEEN ADJUSTED. CKi 



3.2. 
3.2. 

3.2 

3.2 

3.2 

3.2. 

3.2, 

3.2. 

3.2 

3.2 

3.2. 
3.3 



SENSE/PROGRAM SWITCHES 
SETTING 
01 



MEANING 



02 



3.4 
3.4. 

3.4. 

3.5 



RUN BEST CASE PATTERN. A WAIT WILL OCCUR AFTER THE 
PATTERN HAS BEEN SET UP TO ADJUST V(REF). 

RUN COMPLEMENT BEST CASE PATTERN. A WAIT WILL OCCUR 
AFTER THE PATTERN HAS BEEN SET UP TO ADJUST V(REF). 
DETERMINE AN UPPER LIMIT. 

WAITS 
NORMAL WAITS 

PROGRAM WAITS ARE IDENTIFIED BY THE B AND I REGISTER AND ARE FOUND 
AT THE BEGINNING OF THE t ISTING. 

ERROR WAITS - (NONE) 

RESTART PROCEDURE. DEPRESSING 'RESET' AND THE 'START' PUSHBUTTON 



! 

t 



BATE 

EC NO. 



28FEB66 
415120 



01JUL66 
415178 



05JAft« 
41.1731 



14N0V69 
*31319 



PROG ID 
PAGE 



08C0-* 
1 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



05JAN67 
411731 



14NCV69 
431319 



PROG ID 
PAGE 



08C0-* 
1A 



t- 

o 

c -«*' 



r 



o 

O 

o 
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a 

Q 

Q 

Q 

a 



DATE 
EC NO. 



WILL CAUSE THE PROGRAM TO EE RE-ENTERED AND THE SENSE/PROGRAM 
SWITCHES READ. 



4.0 PRINTOUTS 
5.0 COMMENTS 



(NONEJ 



5.1 



PATTERNS 



5.1.1 BEST CASE PATTERN. FOR EACH ADDRESS BIT 7 IS 

EXCLISIVE CRED WITH BIT 9. IF THE RESULT IS A ONE, FFFF IS WRITTEN 
INTO THAT ADDRESS. IF THE RESULT IS A ZERO, 0000 IS WRITTEN INTO 
THAT ADDRESS. 

THIS SHOULD SET UP GROUPS OF 64 POSITIONS OF EITHER ONES OR 
ZEROS IN THE FOLLOWING MANNER. SELECT X AND Y LINE ADDRESSES 
TO Determine THE VALUE SET. 

BIT VALUE FOR BEST CASE PATTERN 



.X- ilNE ADRS .Y- LINE ADDRESS. Y- LINE ADDRESS . 

• • • • 

-OCOOOOO-OllUll. 1000000-1111111 . 


.0 00000. . 1 

.000001. . 1 

• OC0010. 1 . 

.c 00011. 1 . 
.000100. . 1 

.0 00101. . 1 

• * • • * 

• • • * • 

• * * * • 

.0 01111. 1 . 
A U X . . 1 
A U X 1 . 1 


AUX2. . 1 

A U X 3 . . 1 

.100COO. 1 . 

.100001. 1 . 

.1 O G 1 . 1 

• » • * • 

• • • # • 

• * * m m 

.111110. . 1 

.111111. . 1 



5.1.2 



5.2 



COMPLEMENT BEST CASE PATTERN. CORE IS SET UP AS SPECIFIED BY 5.1.1, 
THEN THE CONTENTS OF EACH CORE LOCATION ARE COMPLEMENTED. 



SUBROUTINES 



5.2.1 BEST CASE PATTERN AND COMPLEMENT BEST CASE PATTERN SUBROUTINE (BCP). 

THIS SUBROUTINE IS ENTERING WITH INDEX REGISTER 1 SET TO 0000 AND 
INDEX REGISTER 2 SET TO FFFF TO SET UP THE BEST CASE PATTERN AND 
INDEX REGISTER 1 SET TO FFFF AND INDEX REGISTER 2 SET TO 0000 TO 
SET UP THE COMPLEMENT BEST CASE PATTERN. SYMBOLIC LOCATION •PIOC 
CONTAINS THE STARTING LOCATION OF AREA WHERE THE PATTERN IS TO BE 
SET UP. INDEX REGISTER 3 CONTAINS A COUNT OF THE NUMBER OF CORE 
WORDS TO BE SET UP. 

5.2.2 SET STORAGE PROTECTION BITS SUBROUTINE CSPV1. 

THIS SUBROUTINE SETS SPV BITS IN THOSE CORE LOCATIONS WHICH 
CONTAINS FFFF. INDEX REGISTER 1 CONTAINS THE STARTING LOCATION 
OF THE AREA WHERE THE PATTERN IS SET UP. 



28FEB66 01JUL66 05JAN67 14N0V69 
415120 415178 411731 431319 
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INDEX REGISTER 3 CONTAINS A COUNT OF ThE NUMBER OF CORE WORDS 
CONTAINED IN THE PATTERN AREA. 

BECAUSE OF THE ODC PARITY PESTRICTICN I"PCSED BY ThE HARD-WARE, 
ONLY 17 BITS CAN BE ON OR OFF IN ANY CORE LOCATION. 
HOWEVER EXECUTING THE COMPLEMENT OF A PATTERN CAUSES ThE PARITY 
BIT TO BE COMPLETELY CHECKED. 



6. APPENDIX 



(NONE) 



LAST PAGE 



PROG ID 


08CO-* 


' DATE 


28FEB66 


01JUL66 


05JAN67 


14N0V69 


PAGE 


2 


i EC NO. 


415120 


415178 


411731 


431319 



PROG ID 
PAGE 



08CO-* 
2A 



occocococccccccccccccrrcocccccceoc 



p-' 









o L0W 
o 

o 

CJ 

cO 

s 

O 

o 
o 

O 

^\ 



/-v DATE 
i,J EC NO. 
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3001 



ABS 
ORG 



/3001 



* 

* 
* 
***************** 

* 

* 
* 
* 
* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
********************.************************* 

***************** WAITS ******************* 

* 



1800 CORE ADJUSTMENT PROGRAM 



NOTES ******************* 



OPERATOR SHOULD CLEAR 
SPV BITS EACH TIME BEFORE 
THE CORE ADJUSTMENT PROG 
IS LOADED 

SET CK STOP SW TO ON. 

SET WRITE STORAGE PROTECT 
SWITCH TO YES FOR 
EXECUTING PROGRAM AND 
TO NO WHILE ADJUSTING 
V REF. 

SENSE/PROGRAM SW SETTINGS 



01 



02 



SET UP BEST CASE 
PATTERN 

SET UP COMPLEMENT 
BEST CASE PATTERN 



3001 783B 



DC 



WAIT1C1 



3002 785E 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



DC 



WAIT2S1 



SELECT PATTERN 

SET PATTERN NUMBER 
OF DESIRED PATTERN 
IN SENSE/PROG SWS 

DEPRESS RESET BUTTON 

DEPRESS START BUTTON 

NOTE— ACCUMULATOR 
SHOWS THE SETTING OF 
THE PRESENT SENSE/ 
PROGRAM SWITCHES 



PROGRAM COMPLETED 

ACCUMULATOR SHOWS 
PATTERN NUMBER OF 
PATTERN THAT WAS SET 
UP IN CORE. 

ADJUST V REF WHILE 
CYCLING IN THE 
AUTOMATIC DISPLAY 
MODE. 

TO SET UP NEXT 
PATTERN AFTER V REF 
HAS BEEN ADJUSTED — 
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8C000020 
8C000030 
8C000040 
8C000050 
8C000060 
8C000070 
8C000080 
8C000090 
8C000100 
8C000110 
8C000120 
8C000130 
8C000140 
8C000150 
8C000160 
8C000170 
8C000180 
8C000190 
8C000200 
8C000210 
8C000220 
8C000230 
8C000240 
8C000250 
8C000260 
8C000270 
8C000280 
8C000290 
8C000300 
8C000310 
8C000320 
8C000330 
8C000340 
8C000350 
8C000360 
8C000370 
8C000380 
8C000390 
8C000400 
8C000410 
8C000420 
8C0O0430 
8C000440 
8C000450 
8C000460 
8C000470 
8C000480 
8C000490 
8C000500 
8C000510 
8C000520 
8C000530 
8C000540 
8C000550 
8C000560 
8C000570 
8C000580 
8C000590 
8C000600 
8C000610 
8C000620 
8C000630 
8C000640 
8C00065O 
8C000660 
8C000670 
8C000680 
8C000690 



D 



D 
D 
D 
D 
D 
D 
D 

I 

P 

j 

D 
D 
D 
D 
D 
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D 
D 
D 
D 



D 



PLACE NEXT PATTERN 
NUMBER IN THE 
SENSE/PROGRAM SWS 

TURN MOOE SW TO 
RUN ** PLUS ** 
TURN ON WR SPV SW 

DEPRESS RESET 
PUSHBUTTON 

DEPRESS START 
PUSHBUTTON 



7800 

7800 C COOO 



7801 61C0 

7802 C007 

7803 D1FF 

7804 7500 1000 

7806 1000 

7807 1010 

7808 01FF 

7809 C400 FFFF 
780B 4C20 7804 



780D 71FF 



780E 1000 
780F 6D00 78A4 



7811 CCOO 7898 
7813 DCOO 0000 

7815 1010 

7816 D400 78AA 
7818 D001 



********************************************* 

* 

* 

ORG /7800 

DC /COOO PID 

************************************** * ****** ***** 

* * 

* CORE SIZE DETERMINER * 

* * 
************************************************** 
START LDX 1 SET CTRL INDEX 1 

LD STGCKE1 GET CONSTANT FFFF 6 SET 
STC 1 -1 IN MAXIMUM ADDRESS 



STGLP MDX 
NOP 
SLA 
STO 

* 

STGCK LD 
BSC 

* 

* 

MDX 

* 

* 

NOP 
STX 

* 

* 

* 

* 

* 

SETLK LDD 
STD 

* 

SLA 
STO 
STO 



I -1 

LI /1000 

16 
1 -1 



/FFFF 
STGLP, Z 




LI SIZE 



ADVANCE CONTROL INDEX 
SAFETY NOP FOR 32K CORE 
CLEAR ACCUMULATOR AND SET 
IN 4K CORE BLOCK ,MAX ADOR 

GET MAX CORE ADDRESS DATA 
CHECK IT FOR ZERO 
BRANCH LOOP IF NOT MAX 

DECREMENT XI TO ACTUAL 
MAXIMUM ADDRESS THIS CPU 

SAFETY NOP FOR 32K CORE 
SET PROPER LIMIT 



SET UP RESTART LINKAGE 



7819 
781B 
781C 
781E 
781F 
7821 



2C40 0000 

COFE 

8400 78A1 

OOFB 

F400 78A4 

4C20 7819 



* 
CSP 



* 

* 
* 
* 



7823 C07B 

7824 E07F 

7825 D079 



STS 

LD 

A 

STO 

EOR 

BSC 



LD 

AND 

STO 



LINK 


16 

X3CTL 

CSPS1 

0,/40 

CSPS1 

ONE 

CSPG1 

SIZE. 

CSP,Z 



LOAD RESTART ADOR 

* WITHOUT CORE SIZE CK 



28FEB66 
415120 



04NOV66 
415233 



15MAY67 
411731 



14N0V69 
431319 



PROG ID 
PAGE 



08C0-2 

1 



) 



DATE 
EC NO. 



28FEB66 
415120 



04N0V66 
415233 



15MAY67 
411731 



LLIM2 

SIZE 

LLIM2 



14N0V69 
431319 



CLEAR A REG 
RESET CTRLS 
RESET CTRLS 

CLEAR ALL SPV BITS 
GET CLEAR ADDR 
ADV ADDR PLUS ONE 
SAVE NEW ADDR 
CK FOR ALL OF CORE 
BR LOOP 

ADJUST CORE SIZE AND 
* CONSTANTS 

ADJUST CONSTANT 

SET LO LIMIT 2 



8C000700 

8C000710 

8C000720 

8C000730 

8C000740 

8C000750 

8C000755 

8C000760 

8C000770 

8C000780 

8C000790 

8C000800 

8C000810 

8C000820 

8C000830 

8C000840 

8C000850 

8C000860 

8C000870 

8C000880 

8C000890 

8C000900 

8C000910 

8C0 00920 

8C000930 

8C000940 

8C000950 

8C000960 

8C000970 

8C000980 

8C000990 

8C001000 

8C001010 

8C001020 

8C001030 

8C001040 

8C001050 

8C001060 

8C001070 

8C001080 

8C001090 

8C001100 

8C001110 

8C00H20 

8C001130 

8C00H40 

8C001150 

8C001160 

8C001170 

8C001180 

8C001190 

8C001200 

8C001210 

8C001220 

8C001230 

8C001240 

8C001250 

8C001260 

8C001270 

8C001280 

8C001290 

8C001300 

8C001310 

8C001320 

8C001330 

8C001340 

8C001350 

8C00136O 



PROG ID 
PAGE 



08C0-2 
1A 
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PART NO. 
PAGE 



2183288 
2 



cO 

i o 



DATE 
EC NO. 



7826 





C400 


78A7 




L0 


L 


ULIM1 






7828 





E07B 






AND 




SIZE 






7829 





0070 




* 


STO 




ULIM1 

1 


= IND 


SET UP LIMIT 1 
LOOP CONTROLS 


782A 





C07C 






LD 




ULIM1 






782B 





9072 






S 




LLIM1 






782C 





0073 






STO 




LOWRL 




SET LO CTRL LIMIT 


782D 





C076 






LD 




SIZE 






782E 





9070 






S 




LLIM2 






782F 





9071 






S 




ONE 






7830 





D077 






STO 




UPERL 




UPPER LIMIT CONTROL 










* 








READ SENSE/PROG SWITCHES 


7831 





0868 




READ 

* 
* 
* 


XI0 




RDSWS 


CK 


SW VALIDITY 


7832 





1808 




SRA 




8 






7833 





D06E 






STO 




PATNO 




SAVE PATTERN NUMBER 


7834 





4C18 


783A 




BSC 


L 


WAITl, 


s- 




7836 





906F 






S 




TWO 






7837 





4C08 


783C 




BSC 


L 


PIVOT, 


£ 




7839 





C068 






LD 




PATNO 






783A 





3001 




WAITl 

* 
* 
* 

* 
* 
* 
PIVOT 


WAIT 




1 




SELECT SENSE/PROGRAM 

* SW OPTIONS AND 

* DEPRESS RESET AND 

* START PUSHBUTTONS 


783B 





70F5 




MOX 




READ 




















PIVOT ON SELECTED PATTERN 


783C 





C065 




LD 




PATNO 






7830 





4C04 


7842 


* 


BSC 


L 


PAT01, 


E 
SET 


UP BCP OR COMPL. BCP 


783F 





61FF 




PAT02 


LDX 


1 


-1 




SET FOR COMPL BCP 


7840 





6200 






LDX 


2 









7841 





7002 






MOX 




PAT01E2 




7842 





6100 




PAT01 


LDX 


1 







SET INDEXES FOR BCP 


7843 





62FF 






LDX 


2 


-1 






7844 





C059 






LD 




LLIM1 




SET UP TO START AT 


7845 





0050 






STO 




PLOC 




* 1ST LOWER LIMIT 


7846 





404C 






BSI 




X3CRS 




RESET ADDR CTRL 


7847 





6780 


78A0 




LDX 


13 


LOWRL 




SET UP LOOP CONTROL 


7849 





4016 






BSI 




BCP 




SET CORES 


784A 





C054 






LO 




LLIM2 




SET UP TO START AT 


7848 





0057 






STO 




PLOC 




* 2N0 LOWER LIMIT 


784C 





4046 






BSI 




X3CRS 




RESET ADDR CTRL 


784D 





6780 


78A8 




LOX 


13 


UPERL 




SET UP LOOP CONTROL 


784F 





4010 




* 
* 
* 
STSPV 


BSI 




BCP 


SET 


SET CORES 
SPV BITS 


7850 





65 80 


789E 


LDX 


11 


LLIM1 




SET UP TO START AT 










* 










* 1ST LOWER LIMIT 


7852 





6780 


78A0 




LDX 


13 


LOWRL 




SET UP LOOP CONTROL 


7854 





4020 






BSI 




SPV 




SET SPV BIT SUBRT 


7855 





403D 






BSI 




X3CRS 




RESET ADDR CTRL 


7856 





6580 


789F 


* 


LDX 


11 


LLIM2 




SET UP TO START AT 
* 2ND LOWER LIMIT 


7858 





6780 


78A8 




LDX 


13 


UPERL 




SET UP LOOP CONTROL 


785A 





40 1A 






BSI 




SPV 




SET SPV BIT SUBRT 


785B 





4037 




* 
* 


BSI 




X3CRS 




RESET ADOR CTRL 










* 






LOAO PATTERN NUMBER WHICH 










.* 








HAS 


BEEN SET UP AND WAIT 










* 








TO ALLOW CE TO MANUALLY 


28FEB66 04N0V66 


15MAY67 


14N0V69 






415120 415233 


411731 


431319 
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8C001370 






* 






ADJUST' V REF 


8C002050 




8C001380 






* 










8C002060 




8C001390 


785C 


C045 


OONE 


LD 




PATNO 


SET UP PATTERN NO. 


8C002070 




8C001400 


785D 


3002 


WAIT2 


WAIT 




2 


END OF PROGRAM 


8CO02O80 




8C001410 


785E 


4C00 7801 




BSC 


L 


START 


v 


8C002090 




8C001420 






* 










8C002100 




8C001430 






* 










8C002110 




8C001440 






* 






BCP 


AND COMPL. BCP SUBRT 


8C002120 




8C001450 






* 










8C002130 




8C001460 


7860 


0000 


BCP 


DC 









8C002140 




8C001470 


7861 


6B47 




STX 


3 


X3HLD 


SAVE X3 DATA 


8C002150 




8C001480 


7862 


C040 




LD 




PLOC 


EXCUSIVE OR BITS 7 


8C002160 




8C001490 


7863 


C 1806 




SRA 




6 


* AND 9 


8C002170 




8C001500 


7864 


D040 




STO 




TEMP 




8C002180 




8C001510 


■ t 7865 


1802 




SRA 




2 ' 




8C002190 




8C001520 


7866 


F03E 




EOR 




TEMP 




8C002200 




8C001530 


7867 


4C04 786C 




BSC 


L 


ODD,E 


* 


8C002210 




8C001540 


7869 


6D80 78A3 




STX 


II 


PLOC 




8C00222O 




8C001550 


786B 


7002 




MDX 




COD £2 




8COO2230 




8C001560 


786C 


6E80 78A3 


ODD 


STX 


12 


PLOC 




8C002240 




8C001570 


786E 


7401 78A3 




MOX 


L 


PL0C1 


INCREMENT ADDRESS 


8C002250 




8C001580 


7870 


1000 




SLA 









8C002260 




8C001590 


7871 
7872 


4015 




BSI 




CKX3X 


BR TO CK X3 CTRL 


8C002270 




8C001600 


70EF 




MDX 




BCPS2 


REPEAT 


8C002280 




8C001610 


7873 


4C80 7860 




BSC 


I 


BCP 


EXIT 


8C002290 




8C001620 






* 










8C002300 




8C001630 


« 




* 










8C002310 




8C001640 






* 








SET SPV SUBRT 


8C002320 




8C001650 






* 










8C002330 




8C001660 


7875 


OOCO 


SPV 


DC 









8C002340 




8C001670 


7876 


6B32 




STX 


3 


X3HLD 


SAVE X3 DATA 


8C002350 




8C001680 


7877 


6933 




STX 


1 


PGMX 


SAVE XI VALUE 


8C002351 




8C001690 i 


7878 


C032 




LD 




PGHX 


GET XI DATA 


8C002352 




8C001700 , 


7879 


F02D 




EOR 




ULIM1 


CK FOR START OF PGM 


8C002353 




8C001710 


787A 


4C18 7883 




BSC 


L 


SPVX.E- 


§R IF START FO PGM 


8C002354 




8C001720 


787C 


C100 




LD 


1 





SET ADOR CTRL 


8C002360 




8C001730 


7870 


4C18 7881 




BSC 


L 


SPVB,£- 


BRANCH IF CONTAINS 


8C002370 




8C001740 | 


787F 


2D41 0000 




STS 


LI 


0./41 


SET SPV 


8C002380 




8C001750 


7881 


7101 


SPVB 


MDX 


1 


1 


INCREMENT ADDRESS 


8C002390 




8C001760 


7882 


1000 




SLA 









8C002400 




8C001770 


7883 


4003 


SPVX 


BSI 




CKX3X 


BR TO CK X3 CTRL 


8C002410 




8C001780 i 


7884 


70F2 




MOX 




SPVE2 


REPEAT 


8C002420 




8C001790 i 


7885 


4C80 7875 




BSC 


I 


SPV 


EXIT 


8C002430 




8C001800 






* 










8C002440 




8COO1810 i 






* 










8C002450 




8C001820 






* 










8C002460 




8C001830 


7887 


0000 


CKX3X 


DC 







ENTRY 


8C002470 




8C001840 




* 










8C002480 




8C001850 '• 


7888 


C021 




LO 




X3CTL 




8C002490 




8C001860 


7889 


8017 




A 




ONE 


ADD TO ADV ADDR 


8C002500 




8C001870 


788A 


D01F 




STO 




X3CTL 




8C002510 




8C001880 


788B 


F01D 




EOR 




X3HLD 


TEST AGAINST CTRL MAX 


8C002520 . 




8C001890 ' 


788C 


4CA0 7887 




BSC 


I 


CKX3X.Z 


BR IF NOT ZERO 


8C002530 




8C001900 


788E 


7401 7887 




MDX 


L 


CKX3X.1 


ADV FOR EXIT RETURN 


8C002540 




8C001910 


7890 


1000 




NOP 







SAFTY NOP 


8C002550 




8C001920 


7891 


4C80 7887 




BSC 


I 


CKX3X 


RETURN TO EXIT RTN CTRL 


8C002560 




8C001930 






* 










8C002570 




8C001940 






* 








RESET ADDR CTRL 


8C002580 




8C001950 






* 










8C002590 




8C001960 ; 


7893 


0000 


X3CRS 


DC 







ENTRY 


8C002600 




8C001970 


7894 


1010 




SLA 




16 


CLR A REG 


8C002610 




8C001980 


7895 


0014 




STO 




X3CTL 


RESET ADDR CTRL CTR 


8C002620 




8C001990 


7896 


4C80 7893 




BSC 


I 


X3CRS 


RETURN EXIT 


8C002630 




8C002000 i 






* 










8C002640 




8C002010 






* 










8C002650 




8C002020 I 
8C002030 . ; 


7898 


0000 




BSS 


E 







8C002660 




7898 


4C00 7811 


LINK 


BSC 


L 


SETLK 


RESTART LINKAGE ROUTINE 


8C002670 




8C002040 


7 89 A 


0000 


RDSWS 


DC 







SENSE INTO A REG 


8C002680 




i 
PROG ID 08C0-2 


DATE 28FEB66 04NOV66 


15MAY67 


14N0V69 




PROG ID 


08C0-2 


PAGE 2 


EC NO. 415120 415233 


411731 


431319 




PAGE 


2A 






O IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
/*v LOW CORE ADJUSTMENT PROGRAM 



o 
o 

o 
o 

o 

o 
o 
1 o 
o 
«q 

o 
o 

o 

c3 
c3 



789B 





0760 




DC 


/0760 


789C 





6000 


K6000 


DC 


/6000 


7890 





0800 


K0800 


DC 


/0800 


789E 





0002 


LLIMl 


DC 


/0002 


789F 





78AC 


LLIM2 


DC 


FNISH 


78A0 





0000 


LOWRL 


DC 





78A1 





0001 


ONE 


DC 


1 


78A2 





0000 


PATNO 


DC 





78A3 





0000 


PLOC 


DC 





78A4 





0000 


SIZE 


DC 





78A5 





0000 


TEMP 


DC 





78A6 


c 


0002 


TWO 


DC 


2 


78A7 





7801 


ULIM1 


DC 


START 


78A8 





0000 


UPERL 


DC 





78A9 


c 


0000 


X3HLD 


DC 





78AA 





0000 


X3CTL 


DC 





78AB 





0000 


PGMX 


DC 





78AC 





0000 


FNISH 


DC 





78AE 




7801 




EN0 


START 


NO 


STATEMENTS 


FLAGGED IN THE 


ABOVE ASS 



SENSE/PROG SWS 

24K CONSTANT 

CONSTANT 

1ST LOWER LIMIT CTRL 

2ND LOWER LIMIT CTRL 

LO CORE BLOCK LOOP CTRL 

CONSTANT 1 

PATTERN NUMBER 

PRESENT LOC 

CORE SIZE C UPLIM2 

CONSTANT 2 

1ST UPPER LIMIT 

HI CORE BLOCK LOOP CTRL 

X3 DATA HOLDER 

CTRL ADDR UPLIM 

PGM SPV CK WORt AREA 

LAST LOC OF PROG 



EMBLY 



PART NO. 
PAGE 



8C002690 
8C002700 
8C0O2710 
8C002720 
8C002730 
8C002740 
8C002750 
8C002760 
8C002770 
8C002780 
8C002790 
8C002800 
8C002810 
8C002820 
8C002830 
8C00284O 
8C002850 
8C002860 
8C002870 



2183288 
3 
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BCP 


7860 


7849 784F 7872 


7873 




CKX3X 


7887 


7871 7883 788C 


788E 


7891 


CSP 


7819 


7818 781B 781E 


7821 




DONE 


78 5C 








FNISH 


78AC 


789F 






K0800 


789D 








K6000 


789C 








LINK 


7898 


7811 






LLIMl 


789E 


782B 7844 7850 






LLIM2 


789F 


7823 7825 782E 


784A 


7856 


LOWRL 


78 AO 


782C 7847 7852 






ODD 


786C 


7867 786B 






ONE 


78A1 


78 1C 782F 7889 






PATNO 


78A2 


7833 7839 783C 


785C 




PAT01 


7842 


783D 7841 






PAT02 


783F 








PGMX 


78AB 


7877 7878 






PIVOT 


783C 


7837 






PLOC 


78A3 


7845 784B 7862 


7869 


786C 


ROSWS 


789A 


7831 






READ 


7831 


7838 






SETLK 


7811 


7898 






SIZE 


78A4 


780F 781F 7824 


7828 


7820 


SPV 


7875 


7854 785A 7884 


7885 




SPVB 


7881 


787D 






SPVX 


7883 


787A 






START 


7801 


785E 78A7 78AE 






STGCK 


7809 


7802 






STGLP 


78 04 


780B 






STSPV 


7850 








TEMP 


78A5 


7864 7866 






TWO 


78 A6 


7836 






ULIM1 


78A7 


7826 7829 782A 


7879 




UPERL 


78A8 


7830 784D 7858 


- 




WAIT1 


783A 


3001 7834 






WAIT2 


7850 


3002 






X3CRS 


7893 


7846 784C 7855 


785B 


7896 


X3CTL 


78AA 


7816 7888 788A 


7895 




X3HLD 


78A9 


7861 7876 7888 






END OF 


ASSEMBLY 




— — 1 A 
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CJ EC NO. 
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|EC NO. 
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415233 


411731 
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o 

o 
o 

o 

o 

o 



3001 



ABS 
ORG 



/3001 

1800 CORE ADJUSTMENT PROGRAM 



* 

* 

* 

* 

***************** NOTES ******************* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

************* **************************£*$$:(,.(. 

* 

***************** WAITS ******************* 
* 



OPERATOR SHOULD CLEAR 
SPV BITS EACH TIME 8EF0RE 
THE CORE ADJUSTMENT PROG 
IS LOADED 

SET CK STOP SW TO ON. 

SET WRITE STORAGE PROTECT 
SWITCH TO YES FOR 
EXECUTING PROGRAM AND 
TO NO WHILE ADJUSTING 
V REF. 

SENSE/PROGRAH SW SETTINGS 

01 SET UP BEST CASE 

PATTERN 

02 SET UP COMPLEMENT 

BEST CASE PATTERN 



3001 0167 



DC 



WAIT1C1 



3002 018A 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



DC 



WAIT2S1 



SELECT PATTERN 

SET PATTERN NUMBER 
OF DESIRED PATTERN 
IN SENSE/PROG SWS 

DEPRESS RESET BUTTON 

DEPRESS START BUTTON 

NOTE— ACCUMULATOR 
SHOWS THE SETTING OF 
THE PRESENT SENSE/ 
PROGRAM SWITCHES 

PROGRAM COMPLETED 

ACCUMULATOR SHOWS 
PATTERN NUMBER OF 
PATTERN THAT WAS SET 
UP IN CORE. 

ADJUST V REF WHILE 
CYCLING IN THE 
AUTOMATIC DISPLAY 
MODE. 

TO SET UP NEXT 
PATTERN AFTER V REF 
HAS BEEN ADJUSTED — 



DATE 
EC NO. 



28FEB66 
415120 



04NOV66 
415233 



15N0V67 
411731 



14N0V69 
431319 



8C 100020 

8C100030 

8C 100040 

8C100050 

8C100060 

8C100070 

8C100080 

8C 100090 

8C100100 

8C100110 

8C100120 

8C100130 

8C100140 

8C100150 

8C100160 

8C100170 

8C100180 

8C100190 

8C100200 

8C100210 

8C10022O 

8C100230 

8C100240 

8C100250 

8C100260 

8C100270 

8C100280 

8C100290 

8C100300 

8C100310 

8C100320 

8C100330 

8C100340 

8C100350 

8C100360 

8C100370 

8C100380 

8C100390 

8C100400 

8C100410 

8C100420 

8C100430 

8C100440 

8C100450 

8C 100460 

8C100470 

8C100480 

8C 100490 

8C100500 

8C100510 

8C 100520 

8C100530 

8C100540 

8C100550 

8C100560 

8C100570 

8C100580 

8C100590 

8C100600 

8C100610 

8C100620 

8C100630 

8C 100640 

8C100650 

8C100660 

8C100670 

8C10068O 

8C100690 



PROG ID 
PAGE 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

c3 

a 
o 
o 

s 

o 

o 

o 

o 

c3 
c ) 
O 
c3 
cO 



c3 



012C 

012C C100 



012D 6100 
012E C007 
012F D1FF 

0130 7500 1000 

0132 1000 

0133 1010 

0134 D1FF 

0135 C400 FFFF 
0137 4C20 0130 



0139 71FF 



013A 1000 
013B 6D00 01D0 



013D CCOO 01C4 
013F DCOO 0000 

0141 1010 

0142 D400 01D6 
0144 D001 



0145 
0147 
0148 
014A 
014B 
0140 



2C40 0000 

COFE 

84C0 01CD 

DOFB 

F400 01D0 

4C20 0145 



014F C07B 

0150 E07F 

0151 D079 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

******* ******************************$******* 

* 

* 

ORG /012C 

DC /C100 PID 

^♦♦^i***************************************^.^ 
^ * 

* CORE SIZE DETERMINER * 

* * 
******* ****************** *************^^ * **** ** **$ 



PLACE NEXT PATTERN 
NUMBER IN THE 
SENSE/PROGRAM SWS 

TURN MODE SW TO 
RUN ** PLUS ** 
TURN ON WR SPV SW 

DEPRESS RESET 
PUSHBUTTON 

DEPRESS START 
PUSHBUTTON 



START LDX 
LD 
STO 

* 

STGLP MDX 
NOP 
SLA 
STO 

* 

STGCK LD 
BSC 

* 

* 



1 

STGCKS1 
1 -1 

LI /1000 


16 
1 -1 



SET CTRL INDEX 1 
GET CONSTANT FFFF £ 
IN MAXIMUM ADDRESS 



SET 



/FFFF 
STGLP, Z 



MDX 



NOP 
STX 

* 

* 

* 

* 

* 

SETLK LDD 
STD 

* 

SLA 
STO 
STO 




LI SIZE 



ADVANCE CONTROL INDEX 
SAFETY NOP FOR 32K CORE 
CLEAR ACCUMULATOR AND SET 
IN 4K CORE BLOCK MAX ADDR 

GET MAX CORE ADDRESS DATA 
CHECK IT FOR ZERO 
BRANCH LOOP IF NOT MAX 

DECREMENT XI TO ACTUAL 
MAXIMUM ADDRESS THIS CPU 

SAFETY NOP FOR 32K CORE 
SET PROPER LIMIT 



SETUP RESTART LINKAGE 



* 
CSP 



* 
* 
* 
* 



STS 

LD 

A 

STO 

EOR 

BSC 



LD 

AND 
STO 



LINK 


16 

X3CTL 

CSPE1 

0./40 

CSPS1 

ONE 

CSPS1 

SIZE 

CSP.Z 



LOAD RESTART ADDR 

* WITHOUT CORE SIZE CK 



08C1-2 ,' 
1 v. 



h DATE 
J EC NO. 



28FEB66 
415120 



04N0V66 
415233 



15N0V67 
411731 



LLIM2 

SIZE 

LLIM2 



14N0V69 
431319 



CLEAR A REG 
RESET CTRLS 
RESET CTRLS 

CLEAR ALL SPV BITS 
GET CLEAR ADDR 
ADV ADDR PLUS ONE 
SAVE NEW ADDR 
CK FOR ALL OF CORE 
BR LOOP 

ADJUST CORE SIZE AND 
* CONSTANTS 

ADJUST CONSTANT 

SET LO LIMIT 2 



8C100700 

8C100710 

8C100720 

8C100730 

8C 100740 

8C100750 

8C100755 

8C100760 

8C100770 

8C100780 

8C100790 

8C100800 

8C100810 

8C100820 

8C100830 

8C100840 

8C100850 

8C100860 

8C100870 

8C100880 

8C100890 

8C100900 

8C100910 

8C100920 

8C100930 

8C100940 

8C100950 

8C100960 

8C100970 

8C100980 

8C 100990 

8C101000 

8C101010 

8C101020 

8C101030 

8C101040 

8C101050 

8C101060 

8C101070 

8C101080 

8C101090 

8C10U00 

8C101110 

8C101120 

8C101130 

8C101140 

8C101150 

8C101160 

8C101170 

8C101180 

8C101190 

8C101200 

8C101210 

8C101220 

8C101230 

8C101240 

8C101250 

8C101260 

8C101270 

8C101280 

8C101290 

8C101300 

8C101310 

8C101320 

8C101330 

8C 101340 

8C101350 

8C101360 



PROG ID 
PAGE 



08C1-2 
1A 
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0152 


C400 010) 


0194 


E07B 


0159 


0070 


0156 


C07C 


01ST 


9072 


0158 0073 


0159 C07* 


015A 


TOTS 


0158 


9 9071 


015C 


00 17 



0150 0868 



0I5E ISOS 
015F 006E 
QUO 4C16 0166 

0162 906F 

0163 4C08 0168 

0165 C068 

0166 3001 



016T TOF5 



0168 O C06S 

0169 4C04 016E 



0168 
016C 
0160 
016E 
016F 
0170 
0171 
0172 
0173 
0175 
0176 
0177 
0178 
0179 
0178 



61FF 

6200 

7002 

O 6100 

62FF 

COM 

O 0050 

404C 

6780 01CC 

4016 

COM 

0057 

O 4046 

6780 0104 

4010 



017C »«80 01CA 

017E 6780 01CC 

0180 4020 

0181 4030 

0182 6580 01C8 

0184 6780 0104 
0186 401A 
0167 %©37 






to I 

AMD 
STO 

* 

LD 

S 

STO 

to 

s 

s 

STO 
READ XIO 

• 

SRA 

STO 
BSC L 
S 

esc l 

LD 
HAITI WAIT 

MDX 

pivot id 

BSC L 

PAT02 LOX 
LOX 
MDX 

PATOi LDX 
IDX 
U> 
STO 
BSI 
LOX 
BSI 

to 

STO 
BSI 

tox 

BSI 

STSPV tOX 

tox 

BSt 
BSI 

tox 
tox 

BSI 
BSI 

- • 



01 1 Ml 

SIZE 

WtlMl SET UP LIMIT 1 

FIND LOOP CONTROLS 
ULIM1 
LLIttl 

LOHRL SET LO CTRL LIMIT 
SIZE 
LLIM2 
ONE 

UPERL UPPER LIMIT CONTROL 
REA0 SENSE/PROG SNITCHES 
RDSNS 



CK SN VALIDITY 



• 

PATNO 

WAITlcC- 

TNO 

PIVOTtS 

PATNO 

1 



READ 



SAV-: PATTERN NUMBER 



SELECT SENSE/PROGRAM 

• SM OPTIONS AND 

• DEPRESS RESET AND 

• START PUSHBUTTONS 



PIVOT ON SELECTEO PATTERN 



PATNO 
PATOI, £ 



SET UP 8CP OR COMPL. 8CP 



1 -I 

2 

PATOI 62 

1 

2 -1 
LLIM1 
PLOC 
X3CRS 

13 LONRt 
BCP 
LLIN2 
PLOC 
X3CRS 

13 UPERL 
BCP 



SET FOR COMPL BCP 



SET INDEXES FOR BCP 

SET UP TO START AT 

* 1ST LOWER LIMIT 
RESET ADOR CTRL 
SET UP LOOP CONTROL 
SET CORES 

SET UP TO START AT 

• 2ND LOWER LIMIT 
RESET ADDR CTRL 
SET UP LOOP CONTROL 
SET CORES 



SET SPV BITS 



11 LLIM1 SET UP TO START AT 

• 2ND LOWER LIMIT 
13 LOHRL SET UP LOOP CONTROL 

SPV SET SPV Bit SUBRT 
X3CRS RESET ADOR CTRL 
U-LLIM2 SET UP TO START AT 

* 2ND LOWER LIMIT 
13 UPERL SET Iff LOOP CONTROL 

SPV SET SPV BIT CTRL 
X3CRS RESET ADOR CTRL 

LOAD PATTERN NUMBER WHICH 
HAS BEEN SET UP AND WAIT 
.TO AttOW CE TO MANUALLY 



OiTE 
EC NO. 



28FEB** 
415120 



04N0V66 
415233 



15NCV67 
411731 



14N0V69 
431)10 
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8C101370 

8C 101 380 

8C101393 

8C 101400 

8C101410 

8C101420 

BC 101430 

8C 101440 

8C101450 

8C101460 

8C 10 1470 

8C101480 

8C101490 

8C1015OO 

BC101510 

8C10IS20 

8C101530 

8C101540 

BC101550 

8C101560 

8C101570 

8C101580 

8C101590 

8C101600 

8C101610 

8C101620 

8C10I630 

8C101640 

BC1016S0 

8C101660 

BC 101670 

8C101680 

8C101690 

8C 101 700 

8C101710 

8C 101720 

8C101730 

act ot 740 

6C101750 
8C101760 
8C101770 

8C101780 
8C101790 

ec ioi 800 

8C101B10 
8C101620 
8C101830 
6C101840 
8 CIO 1850 
8C101860 
BC101870 
BC101880 
8C 101890 
BC101900 
SC101910 
BC 101920 
8C101930 

ec i oi 940 

8C 101950 
8C101960 
BC 101970 
8C1 01980 
8C1O1990 
BC1O2000 
BC102010 
BC102020 
8C 102030 
BC102040 



PROG tO CTC1-2 
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5.1 COMMON MAGNETIC TAPE SUBROUTINES 

5.2 TEST ROUTINES 

6. APPENDIX ..OS 

6.1 EDIT PROCEDURE 

1. PURPOSE 

THE MAGNETIC TAPE CRC FUNCTION TEST IS DESIGNED TO CHECK THE TAPE ERROR 
COPRECTION CIRCUITRY FOR PROPER OPERATION. 

THE PROGRAM IS ABLE TO TEST* 

1. SYSTEMS WITH ONE OR TWO TAPE DRIVES. 

2. DRIVES WITH 9 TRACK READ-WRITE HEADS. 

3. MOOELS It 2 OR 3 WITH 2 OR 4 MICROSECOND STORAGE. 

IF THE SYSTEM HAS TWO TAPE DRIVES KITH 9 TRACK HEADS* BOTH ORIVES MAY BE 
SEQUENTIALLY TESTED IN ONE CONTINUOUS RUN OF THE PROGRAM. 

2. PREREOUISITES 

THIS PROGRAM ASSUMES THAT THE 2400 MAGNETIC TAPE FUNCTION TEST RUNS AND NU 
TAPE CONTROL ERRORS EXIST. EQUIPMENT REQUIRED CONSISTS OF* 



1. 

2. 
3. 
•». 
5. 



1442 CARO READ/PUNCH OR 1054 PAPER TAPE READER. 

1053 OR 1816 TYPEWRITER OR 1443 PRINTER. 

iSOO PROCESSOR CONTROLLER. 

ONE OR TWO 2400 SERIES MAGNETIC TAPE ORIVES WITH 9 TRACK HEAOS. 

THIS PROGRAM REQUIRES THE RELOCATABLE DIAGNOSTIC LOADER FOR LOADING. 



3. USE PROCEDURE 

3.1 PROGRAM LOADING 

PULL CARD 1C09 IN EACH TAPE DRIVE TO BE TESTEO. 

3.1.1 ON TAPE DRIVE (SI TO BE TESTEO* 

1. LOAO TAPE REEL. 

2. DEPRESS LOAD-REWIND KEY. 

3. DEPRESS START KEY. 

AFTER TAPE REWINDS TO LOAO POINT, DRIVE ISI SHOULD BECOME 
REAOY. 

3.1.2 REFER TO RELOCATABLE DIAGNOSTIC LOADER DOCUMENTATION FOR 

LOADING PROCEDURE. 

3.1.3 AFTER LCAOING THE PROGRAM WILL HALT AT WAIT 2. 

IF OPTIONS ARE DESIRED, GO TO 3.2.2. 
IF NO OPTIONS ARC OESIREO, GO TO 3.2.1. 

3.2 OPERATION 

3.2.1 IF NO OPTIONS ARE SET THE PROGRAM ASSUMES* 

1. ALL 9 TRACK DRIVES ON THE SYSTEM ARE TO BE RUN. 

2. OUTPUT DEVICE IS TO BE 1C53 OR 1816 TYPEWRITER. 

3. ALL ERRORS ARE TO BE PRINTED. 

TO EXECUTE THE PROGRAM-DEPRESS THE START BUTTON. 

3.2.2 OPERATING OPTIONS 

IF OPTIONS ARE OESIRED, SET SWITCHES FROM TABLES AND 1 AND 
DEPRESS THE START BUTTON. 

TABLE 0-CONTROL SWITCHES 

1. SWITCHES NAY BE SET PRIOR TO PROGRAM LOADING 
OR AT WAIT 2. 

2. SWITCHES ANO 1 MAY BE CHANGED ONLY BY A RFSET-STAKT 
OPERATION, BUT ALL OTHER SWITCHES MAY BE CHANGED AT 
ANYTIME. 

»*»**»**#***♦******#»**»»»•»»•»*♦ ••••*•*••••••*••**••*•••••»*•••**•** ***#***•• 

DATA ENTRY SWITCHES * DESCRIPTION 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 I; • 

. . . . 1. HALT BEFORE ROUTINE 

• • • • • • * 

. . . . . 1. . .HALT ON ERROR 

. .. ..1... .BYPASS PRINTOUTS 

. . .1. .... .LOOP ON ERROR 

1 LOOP PROCRAf. 

. . . 

1......... .USE 1443 AS OUTPUT DEVICE 

• • 

. 1 PRINT ONLY FIRST EfcD 0A7A WORD 

CTHIS IS AUTOMATIC IF SW 12 IS ONI 

1 ........DO NOT RUN DRIVE 1 

1 .DO NOT RUN DRIV* 

♦••ft************************************************************************* 
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TABLE 1-LOOP ROUTINE 

t. THESE SWITCHES MAY BE CHANGEO AT ANYTIME. 

2. IF 2ER0 IS ENTERED, THE PROGRAM WILL NOT LOOP ANY 
ROUTINE, BUT kILL RUN ALL ROUTINES IN SEQUENCE. 

3. IF IT IS DESIRED TO START ON A ROUTINE OTHER THAN 
ROUTINE 1, AND CONTINUE THE PROGRAM FROM THAT POINT* 

A. SET STARTING ROUTINE PER TABLE 1. 

B. START PROGRAM. 

C. WhILE PROCRAM IS RUNNING SELECT ROUTINE 0. 

THE PROGRAM WILL COMPLETE THE SELECTED ROUTINE ANO 
THEN RUN THE REMAINING ROUTINES IN THEIR NORMAL 
SEQUENCE. 

• PROGRAM/SENSE SWITCHES * DESCRIPTION 

♦ 0123*56? • 

• OX XXXX. ROUTING TO BE LOOPED 

* ~~" ~ IENTER THROUGH 15 HEXADECIMAL! 

3.3 TERMINATING PROCEDURE 

1. THE PROGRAM WILL TERMINATE WHEN ALL ORIVES SELECTED HAVE BEEN 
TESTED, UNLESS LOOP PROGRAM SWITCH IS ON. 

2. THE PROGRAM WILL TERMINATE IF CERTAIN ERRORS OCCUR. (SEE SECTION 
4-PRINTOUTS) 

3. THE PROGRAM CAN BE MANUALLY TERMINATED AT ANY TIME BY DEPRESSING 
THE STOP BUTTON. 

3.4 RESTART PROCEDURE 

PRESS THE STOP, RESET AND START KEYS. THE PROGRAM SHOULD GO TO 
WAIT 2. IF THIS DOES NOT OCCUR THE PROGRAM MUST BE RELOADED. 

3.5 PROGRAM HALTS 

PROGRAM WAITS ARt USEO IN THIS PROGRAM* AND ARE IDENTIFIED BY 
REFERENCING THE B REGISTER ANO I REGISTER. 

A PROGRAM WAIT IS OF THE FORM* 

30XX IB REGISTER} 

A DESCRIPTION OF THE INDIVIDUAL PROGRAM WAITS CAN BE FOUND AT THE 
BEGINNING OF THE PROGRAM LISTING. A TYPICAL WAIT DESCRIPTION 
FOLLOWS. IT IS INCLUOED TO SHOW THE FORMAT IN THE LISTING, ANO IT IS 
NOT NECtSSAPILY A DESCRIPTION OF AN ACTUAL WAIT. 

3001 01ED DC WAIT1+I 

* 

» ONE OF THE METERED 1/0 UNITS FAILED 

• TO SEND A RESPONSE INTERRUPT TO THE 

• PROGRAM. INDEX REGISTER 1 WILL 

• HAVE THE ADDRESS OF THE IOCC. THE 

• AREA CODE WILL INDICATE THE I/O UNIT 

• NOT READY. IF A 2401/02 0R1VE IS 

• NOT READY, PROGRAM WILL NOT STOP AT 

• WAIT 1. 

B REG., IFIRST 4 DIGIT GROUP) CORRESPONDS TO B REG. READING. 
I REG., (SECOND 4 DIGIT GRCUP) CORRESPONDS TO I REG. READING. 



PRINTOUTS 



4.1 



COMMAND MESSAGES 



OATE 
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PID MID RID RAO UNIT 
BDOO CCOO XXXX XXXX OOOX 

DRIVE IS SELECTED TO BE RUN BUT IS NOT READY. 

PROGRAM IS TERMINATED. 

BDOO C001 XXXX XXXX OOOX 

DRIVE 1 IS SELECTED TO BE RUN BUT IS NOT READY. 
PROGRAM IS TERMINATED. 

BDOO CC02 XXXX XXXX OOOX 

ALL ROUTINES ARE COMPLETE ON THE DRIVE INDICATED. 

4.2 INFORMATION' MESSAGES 

NUMBER OF 
RETRVS 
BOOO A001 XXXX XXXX OOOX XXXX 

RECOVERED WRITE ERROR. A CORRECT WRITE WAS ACCOMPLISHED AFTER THE 
NUMBER OF RETRYS SHOWN. 

BOOO A002 XXXX XXXX OOOX VVXX 

RECOVERED READ ERROR. A CORRECT READ WAS ACCOMPLISHED AFTER THE 
NUMBER OF RETRYS SHOWN. NUMBER RETRYS - YV TIMES 10 PLUS XX. 



4.3 



ERROR MESSAGES 



A B C 

BOOO EC01 XXXX XXXX OOOX XXXX XXXX XXXX XXXX 
DATA RECEIVED WAS NOT CORRECT 

A-EXPECTED OAT* 

B-»ECEIVEO DATA 

C-WORO NUMBER IN ERROR 

D-TRACK BEING TESTED (FFFF-LOST CHARACTER RTNI 

DSN 

RECEIVEO 
BDOO E002 XXXX XXXX OOOX XXXX 

DRIVE WAS NOT READY PRIOR TO A WRITE. 

PROGRAM IS TERM I NAT ED-SUGGEST RUNNING THE 2400 F. T. 

BDOO E003 XXXX XXXX OOOX XXXX 

COULO NOT WRITE CORRECTLY IN THREE TRIES. 

PROGRAM IS TERMINATED-SUGGEST RUNNING THE 2400 F. T. 

BDOO E004 XXXX XXXX OOOX XXXX 

DRIVE WAS NOT READY »RIOR TO A READ. 

PROGRAM IS TERMINATED-SUGGEST RUNNING THE 2400 F. T. 

BDOO E005 XXXX XXXX OOOX XXXX 

UNCORRECTABLE READ ERROR. 

BDOO E006 XXXX XXXX OOOX XXXX 

DSW INCORRECT AFTER BACKSPACE. 

PROGRAM IS TERMINATEO-S 'GGEST RUNNING THE 2400 F. T. 

BDOO E007 XXXX XXXX OOOX XXXX 

DRIVE WAS NOT REACY PRIOR TO A BACKSPACE. 

PROGRAM IS TERMINATED- SUGGEST RUNNING THE 2400 F. T. 

BOOO E008 XXXX XXXX OOOX XXXX 

DRIVE WAS NOT READY PRIOR TO A REWIND. 

PROGRAM IS TERMINATED-SUGGEST RUNNING THE 2400 F. T. 
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5. COMMENTS 

THIS PROGRAM CONSISTS OF A SUPERVISOR ROUTINE. A SERIES OF COMMON MAGNETIC 
TAPE ROUTINES ANO A SERIES OF TESTS. SECTION 5.1 GIVES A DESCRIPTION OF 
EACH SUBROUTINE AND ITS CALLING SEQUENCE. SECTION 5.2 GIVES A DESCRIPTION 
OF EACH TEST ROUTINE. 

5.1 COMMON SUBROUTINES 

ALL ROUTINES ASSUME THAT INDEX REGISTER ONE CONTAINS THE NUMBER OF 
THE TAPE DRIVE PRESENTLY BEING RUN. 

NAME CALL 

BSP BSI L BSP 

USE-BACKSPACE ONE RECCRD ON THE DRIVE INDICATED BY INDEX REGISTER ONE. 

OSL BSI L OSL 

USE-RESET THE CRC CIRCUITRY BY SELECTING THE OTHER ORIVE. 

HEXCV BSI L l-EXCV 

USE-CONVERT A BINARY WORD TO ITS 1443 CODE HEXAOECIMAL EQUIVILENT. 

INTR INTERRUPT ROUTINE 

USE-SENSE ILSH ANO OSH. SAVES THE DSW NORD RECEIVED ANO RESETS THE 
INTERRUPT LEVEL. 



SPTF 



LOGC 



LOGOO 



PR43 



PRINT 



RD 



RVO 



SNDSH 



BSI L LOGC 

USE-THIS ROUTINE IS ENTERED BY ROUTINE LOGOO. THIS ROUTINE PRINTS THE 
MESSAGE SET UP BY ROUTINE LOGOO. ON THE 1053 OR 1816 TYPEWRITER. 

BSI L LOGCO 

USE-THIS ROUTINE CONVERTS A 1443 COOED MESSAGE TO A 1053 OR 1816 

TYPEWRITER COOEO MESSAGE. THIS ROUTINE THEN CALLS ON ROUTINE LOGC. 

BSI L PR43 

USE-OUTPUT A MESSAGE ON THE 1443 PRINTER. 

BSI L PRINT 

DC MESSAGE ID 

OC FCRM NUMBER 

MOX CONTINUE ADDRESS 

MDX LOOP ON ERROR AOORESS 

USE-SET UP THE DESIRED MESSAGE FROM THE MESSAGE IF AND FORM NUMBER. 

THIS ROUTINE THEN CALLS ON ROUTINE HEXCV. UPON COMPLETION OF THE 
CONVERSION THIS ROUTINE CALLS ON EITHER LOGOO OR PR43 DEPENDING ON 
THfc OUTPUT OEVICE SELECTEO. AFTER PRINTING IS COMPLETE THE HALT ON 
ERROR SWITCH IS CHECKED. IF ON. THE ROUTINE WAITS. FINALLY THE 
LOOP CN ERROR SWITCH IS CHECKED AND THE ROUTINE EXITS TO THE PROPER 
MOX INSTRUCT I CN FOLLOWING THE CALL. 

BSI L RO 

USE-REAC A RECORD FROM THE TAPE DRIVE SPECIFIED BY INDEX REGISTER ONE. 

IF NO UNEXPECTED ERRORS EXIST THE ROUTINE BACKSPACES ANO REREADS WITH 
CORRECTION. IF UNEXPECTED ERRORS EXIST ON EITHER READ. THE ROUTINE 
WILL RETRY ONE HUNDRED TIMES BEFORE PRINTING UNCORRECTABLE ERROR. 

BSI L RWD 

USE-REWIND THE ORIVE SPECIFIED BY INDEX REGISTER ONE. 



1 

1 



BSI L SNOSW 

USE-SENSE THE ORIVE SPECIFIED BY INDEX REGISTER ONE. 
DSW WORD RECEIVED IN THE A REG'STER. 



RETURN WITH THE 



DATE 

EC NO. 
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3 



BSI L SP7F 

USE-SET TFE FIRST EIGHT WORDS OF THE I/O AREA TO HEXADECIMAL 7FTF. 

SET WORDS TEN ANO TWELVE TO HEXAOECIMAL 007F ANO ALL OTHER 

WORDS TO ZERO. 



ALSO 



SP8F 



SP80 



NRT 



TR 



BSI L SP8F 

USE-SET THE FIRST EIGHT WORDS IN THE I/O AREA TO HEXAOECIMAL BF8F. ALSO 

SET WORDS TEN ANO TWELVE TO HEXAOECIMAL 008F AND ALL CTHER WOROS 

TO ZERO. 

BSI L SP80 

USE-SET THE FIRST EIGHT WORDS IK THE I/O AREA TO HEXADECIMAL 8080. ALSO 

SET WORDS TEN AND TWELVE TO HEXADECIMAL 0080 AND ALL CTHER WORDS TO 

ZERO. 

BSI L WRT 

USE-WRITE ONE RECORD CN THE TA« ORIVE SPECIFIED BY INDEX REGISTER ONE. 
IF ERRORS EXIST THE ROUTINE HILL BACKSPACE. ERASE ANO REWRITE. IF 
THE ERROR STILL EXISTS AFTER THREE RETRYS IT IS AS UNCORRECTABLE 
WRITE ERROR. 

5.2 TEST ROUTINES 

CRC CHECKING METHOD USEO BY THIS PROGRAM 

THE FOLLOWING METHOD IS USED FOR CHECKING THE ERROR CORRECTION 
CIRCUITRY IN THE MAGNETIC TAPE CONTROL UNIT. A RECORD IS SELECTEO 
SUCH THAT ITS DATA CHARACTERS, ITS CRC CHARACTER ANO ITS LRC CHARACTER 
DO NOT HAVE ANY BITS IN THE PARITY TRACK. FOR EXAMPLE. THE RECORD 
CONSISTING OF THE SIXTEEN CHARACTERS 7F, 7F, ETC. WOULD ON A NORMAL 
WRITE HAVE A CRC CHARACTER AND A LRC CHARACTER OF 7F. THIS RECORD 
BY CHANGING ONE OR MORE OF THE CHARACTERS TO HAVE BAD PARITY WHEN NO 
BY CHANGING CNE OR MORE OF THE CHARACTERS TO HAVE BAD PARITY WHEN NO 
BY CHANGING CNE OR MORE OF THE CHARACTERS TO HAVE BAD PARITY WHEN NO 
PARITY BIT IS WRITTEN. THE FOLLOWING CHARACTERS ARE SENT TO TAPE. 

CHAR « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 IS 16 17 18 19 20 21 22 23 24 25-625 





* 
















• 


* 


• 




• 


• 


• 




• 


• 


p 


001C00000 














c 








1 


1 


1 





1 


1 


1 





1 


1 





000000000 





















































1 


111111111 


1 


1 


1 


1 


1 


1 


1 











1 











1 








2 


111111111 


1 


1 


1 


1 


1 


1 


1 











1 











1 








3 


111111111 


1 


1 


1 


1 


1 


1 


1 











1 











1 








4 


111111111 


1 


1 


1 


1 


1 


1 


1 











1 











1 








5 


111111111 


1 


1 


1 


1 


1 


1 


1 











1 











1 








6 


111111111 


1 


1 


1 


1 


1 


1 


1 











1 











1 








7 


110 111111 


1 


1 


1 


1 


1 


1 


1 











1 











1 









WHEN THIS RECORD IS RECEIVED FROM TAPE, THE PARITY BITS I*) MILL NOT BE 
REAO. THIS WILL CAUSE CHARACTER 3 TO HAVE BAD PARITY ON TAPE. 
CHARACTERS 17, 18 AND 19 MILL APPEAR AS NO BITS ON TAPE AS WILL 
CHARACTERS 21, ZZ, 23 AND 25 THROUGH 625. WHEN READING THIS RECORD. 
CHARACTER POSITIONS 17, 18 ANO 19 WILL FCRM A GAP SO THAT CHARACTER 20 
WILL APPEAR AS THE CRC CHARACTER. THE GAP CAUSED BY THE NO BITS IN 
CHARACTERS 21. 22 ANO 23 WILL FORCE CHARACTER 24 TO BE TREATEO AS A 
LRC CHARACTER. THF ABSENCE OF BITS IN CHARACTERS 25 THROUGH 625 FORM 
THE INTERRECORD GAP. WHEN CHARACTER 3 IS READ IT WILL ACTIVATE THE 
ERROR CORRECTION CIRCUITRY AND CALCULATE THE TRACK IN ERROR. THIS 
TRACK MUST BE TRACK 7 SINCE THE CRC CORRESPONDS TO CHARACTER 3 HAVING 
A BIT IN TRACK 7. 

IN A SIMILAR MANNER, TRACK IN ERROR DETECTION CAN BE FORCED IN ALL 
TRACKS EXCEPT THE PARITY TRACK. IT KtST BE REALIZED THAT THIS PROGRAM 
CANNOT CHECK THE PARITY TRACK SINCE A CARD IS REMOVES WHICH HILL PREVENT 
THE PARITY BIT FROM BEING WRITTEN, t ALLOW THIS METHOD OF CHECKING TO WORK. 
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DECIMAL HEXADECIMAL 
ROUTINE ROUTINE 
NUMBER NUMBER 



2 

9 



4 
5 

6 
7 
8 



7 

a 

9 



10 



11 



12 



DE SCR I FT I ON 



13 
14 





E 



|fl ™ E ''? *?!* I° C 7 " F - T »* WUTINE THEN SETS A LOST 
fil i?~ H * R * CTER 0NE « TRAC " C « *ND WRITFS THE DATA. 

CHECKED ™ ^ T ? E \ RE *?« 1 "™ «*««««>» AND THEM ,S 
ChECKED TO SEE IF IT WAS CORRECTED. THE TEST IS THEN 
REPEATED UNTIL THE LOST BIT HAS BEEN PLACED IN EACH OF 
THE SIXTEEN CHARACTERS USED. IN TRACK ONE. 

Jl H ace S S HE n T tr S Ic* S tn§. UT,NE ° N£ " CE ' T tme lost " ts *« 

JL H ACED M fN T TR S IcK S THR°E U E T : NE "" """ ^ "" "" "* 
PL M ACE S r E N T TR S A T CK"F0 UR°: ,NE "« E>WT '" ™ «™ *" 
;L H Ic!rfN T ?R S A T cU S F R SE U : ,NE ° NE """ TME t0$T •«" *" C 
p T L h fcE S D K IN T T^A T CK AS S R r ,NE °" """ ^ "" "" *" 

S^Vl^lSS?" ^ """ '* "* T "" ** 

THE SAME TEST AS ROUTINE ONE EXCEPT THE PATTERN tisrn l« 
BF8F AND LOST BITS ARE PLACED E TRACK MR J! " "*" " 

WORDS. ALL BITS ON ONE TRACK ARE THEN SET TO 7FRn 
INCLUDING THE CRC AND IRC CHARACTERS, THUS SIMULATING A 
DEAD TRACK. AFTER THE READ, THE DATA IS CHECKED TO SFF 
IF RECOVERY WAS CORRECT. THE TEST IS REPEATS SnTIL 
TRACKS THROUGH 7 HAVE ALL BEEN TESTEO a"oEaV Slow. 

THIS ROUTINE SETS A PATTERN OF 8F70 IN THE I/O AREA 

ALTERNATE PICKED AND DROPPED BITS ARE THEN SET IN TRACK 
0. AFTER THE READ WITH CORRECTION THE DATA IS CHECKED 
«EN R CHECKE E oI HEN """" UNTU TR "« » T^OuL"""* 

THE I/O AREA IS SET TO THE PATTERN OF 8080. ALL EVEN 

NUMBER EO CHARACTERS EXCEPT CHARACTER 16 ARE THEN 

CLEARED TO SIMULATE LOST CHARACTERS. AFTER THE READ 

THE DATA IS CHECKED FOR PROPER RECOVERY. 

THE I/O AREA IS SET TO THE PATTERN OF 8080. THE 
ROUTINE THEN SETS A PICKED BIT IN CHARACTER^ ONE, TRACK 
?nooc??. WRITES THE DAfA - THE "CORD IS READ WITH 
CORRECTION AND THE DATA IS CHECKED TO SEE IF IT WAS 
CORRECTED. THE TEST IS THEN REPEATED UNTIL THE PICKEO 

USED^N 8 ^^ ,N " CH ° F THE S ' XTEEN ™«™ 
K P S L«ED E 'n TR^HJSf T " ElVE EXCFPT ™ E P,CKE ° »«" 
AM P^ED^N t^S.""* """ ^ """ »"» 
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'I 



15 


F 


16 


10 


17 


11 


18 


12 


19 


13 


20 


14 



21 



15 



IrI p^ed"; ™H£L mtVE EXCE ' T THE " CKE0 •"» 

Ire ES^R iLTl\% .™ ELVE """ THE " CKE0 ■"« 
13 nSa\l "acTs'IE T-fLVE £XCE " T ™ E " CKE0 nn 

IrI PlEe"!^ TR S ACK U SEvlN:" et¥C '""" ™ WC "° '" $ 

THE SAME TEST AS ROUTINE TWELVE EXCEPT THE PATTERN USED 
IS 7F7F ANO THE PICKEO BITS ARE PLACE0 IN TRACK ZERO. 

THIS ROUTINE SETS A PATTERN OF 8080 IN THE EIGHT I/O 
WORDS. ALL BITS OF ONE TRACK ARE SET TO ONE. AFTER 
THE READ THE DATA IS CHECKED TO SEE IF RECOVERY NAS 

ha A v°e'bee T n HE te T It S e T d! $ * E ' EATE ° UNTU TRACK l THR00CH ' 

7F7F S ^ E Xg/i Js^sIedT"" EXCE " THE "™« " 



) 

"» 
") 

"> 

) 
') 
1 

"> 
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6.1 



EDIT PROCEDURE 

THE FOLLOWING PROCEDURE IS FOR CARD INPUT. FOR PAPER TAPE INPUT, REFER TO THE RARER TAPE EDIT UTILITY PROGRAM DOCUMENTATION. 

THE PROPER EDIT CARDS MUST BE THE LAST CARDS IN THIS PROGRAM DECK. THE FOLLOWING FORMS ARE PROVIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDS OR UPDATING EXISTING 
EDIT CARDS. IF IT IS NECESSARY TO PREPARE OR MODIFY EDIT C\MS, FILL IN THE NECESSARY DATA IN THE FORMS PRIOR TO PUNCHING THE CARDS. CARD COLUMNS THAT ARE SHADED 
SHOULD BE LEFT BLANK. 

ALL FIELDS SHOWN MUST BE PUNCHED IN THE CARD. 



ENTRY 1 



ENTRY 2 



ENTRY 3 



ENTRY I* 



ENTRY 5 



CARD 1 VI 




7f^j7 !a7P^TT^ r irTn' wrrT¥Trrw^ i ■-;■ s 1 1 ■cttt & n i :-- 1 1 1 fe i n ' ■-' i m & 1 1 1 $ i 

im i i »f iiiiiil fc iMli n i"Ti I lii'ii r» iiimii1» mi i '■ r hm mill inn ili i) tin n iliiiii Wi M t ii n iiTifliiiiiiiiiiiri - "V-nym i h iri ffi iiii UB iiiiiiiiiiii I iiiiiiiii tJI ii i w i m i n i rtr- ■ ■ ■ " t-«™ i it^w gatrtsasflaaaaiswiiBa^ .. ^^wmtezauBs&axe&ttzi-: » « «:stf«SsKi'Si»«a:'"' 5 ir c ^ *■ 

H fiBii ii l | |iiwiww|^wi«i|iiiillinrr| » i ii n iii ri r ii m- fr — m i i f- in ■ rr*"lF "" ' - •> . ■£'.^:**pifliBii«BF«i»'gy«it^ mus t ~<wtummmmmK^>w<>i&z2&ts^ u. i m|i ■ » im bmiim w. i ml u m m t ua m a att i smwwti a . m,w i » ■ n i uo n * au*i . *r- -w_~- ■™«iMjM«w»iH»W8MMa^^ ■ - »atM:^gEgB '■sassBa w w m » « ■ ' i ia it wi'Mwr lMWiUMiiMiiw ii Bwtf 'wvm i ii j w l "■^mgnmaw 

TTTr^mTWTTTWTi \ ^TTTT- I l T^TTTl^TTTWl I I ^ I I I ^ FTT^ ! 1 i l^TTTWTTT^l 



am— SmjmhJ 



«BBBS5$ 



TlT.iT -;•'■ "^T 



l_-J 



_4^«£^L<<J al _4 



HE 



TTn^TlTWTTTWl 




KTYTW UTWUTm 



l^ 



Ji$ 



£ 



THE LAST CARD IS THE END EDIT CARD* 
1. AN V IN COLUMN 1. 



THE INFORMATION IN THIS CARD INCLUDES: 



2. THE PI D FOR THIS PROGRAM (COLUMNS 2 AKD 3). 

3. A TERMINATOR WORD OF *FFFF" (COLUMNS 7 - 10). 
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02BC 



3001 0143 



3002 015A 



3003 0199 



3004 02E3 



3005 02FB 



3006 0315 



3007 0340 

3008 0349 



3009 03D6 



300 A 040S 



3006 04EA 



300C 0588 



3000 05F9 



ABS 
ORG 



OC 



DC 



DC 



DC 



DC 



/3001 

PROGRAMMED WAITS 

HAITI*! LAST CARD OF THE 

DECK IS rfOT AN END 
OF EDIT CARD. ARRANGE 
THE DECK AND RELOAD. 

WAIT2+1 WAIT FOR SWITCHES TO 

BE SET UP. SET DESIRED 
SWITCHES AND PRESS 
START. 

WAIT3+1 HALT BEFORE ROUTINE. 

THIS WAIT WAS REACHED 
DUE TO SW. REQUEST. 
PUSH START TO CONTINUE. 

WAIT4*l LOST INTERRUPT AFTER 

WRITE. PUSH RESET AND 
START TO RESTART THE 
PROGRAM. 

WAIT5+1 PROGRAM TERMINATED 

DUE TO LAST PRINTED 
ERROR. SUGGEST THAT 
THE 2400 F. T. BE RUN. 
THIS PROGRAM CAN BE 
RETRIED BY PUSHING 
RESET AND START. 



DC 



DC 
DC 



DC 



DC 



DC 



WAIT6+1 



WAIT7*l 
WAIT8+1 



WAIT9+1 



WAITA+1 



WAITB+1 



DC 



OC 



LOST INTERRUPT AFTER 
ERASE. PUSH RESET 
AND START TO RESTART 
THE PROGRAM. 

LOST INTERRUPT AFTER 
READ. PUSH RESET 
AND START TO RESTART 
THE PROGRAM. 

LOST INTERRUPT AFTER 
BACKSPACE. PUSH RESET 
AND START TO RESTART 
THE PROGRAM 

LOST INTERRUPT AFTER 
REWIND. PUSH RESET 
AND START TO RESTART 
THE PROGRAM. 

WAIT BECAUSE HALT ON 
ERROR SWITCH IS ON 
AND AN ERROR HAS 
OCCURRED. PUSH START 
TO CONTINUE THE 
PROGRAM. 



WAITC+l TYPEWRITER IS NOT 

READY. MAKE IT 
READY AND PUSH START. 

WAITD+1 1443 IS NOT READY. 

MAKE IT READY AND 
PUSH START. 



P£ TE „ 01MAY66 04NOV66 

EC NO. 415120A 415233 
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8B000000 

8BD00010 

8BD00020 

8BD0OO30 

8BD00040 

8B00OO50 

8BD00060 

8BD00070 

88D00080 

8B000090 

8BD00100 

8BD00110 

8BD0O120 

8BD00130 

8BD00140 

8BD00150 

8BD00160 

8B000170 

8B000180 

8BD00190 

8BD00200 

8B000210 

8BD00220 

8BD00230 

8BD00240 

BBD00250 

8BD00260 

8BD00270 

8BD00280 

8BD00290 

8BD00300 

8B000310 

8BD00320 

8BD00330 

8BD00340 

8BD00350 

8BD00360 

8B000370 

8BD00380 

8BD00390 

8BD00400 

8BD00410 

8BD00420 

8BD00430 

8BD00440 

8BD00450 

8BD00460 

8BD00470 

8BD00480 

8BD00490 

8BD00500 

8B000510 

8BD00520 

8B000530 

8BD00540 

8BD00550 

83000560 

8BD00570 

3BD00580 

8BD00590 

8BD00600 

8BD00610 

8BD0O620 

8BD00630 

8BD00640 

8BD00650 

8BD00660 

8BD00670 
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3006 0242 



300F 038E 



3010 



012C 
0120 00 
012F 00 
0131 
0132 
0133 
0134 00 

0136 

0137 

0138 00 
013A 00 
013C 
0130 00 
013F 00 

0141 

0142 









0143 00 
0145 00 
0147 00 
0149 
01 4A 
014B 00 
014D 00 
014F 00 
0151 00 
0153 00 
0155 00 
015 7 00 
0159 



BDOO 

67000152 

6F000124 

6050 

62FB 

C208 

060001CB 

7201 

70FB 

67000130 

6F000124 

6050 

C4000001 

F4000513 

4 820 

3001 

6700001B 

C400023E 

D7000007 

73FF 

70FC 

D4000001 

C400023F 

D48001C8 

CC0001D0 

DC000006 

C400C1D2 

D4000000 

3002 



015A 





1010 


015B 





D05C 


01 5C 





D05C 


015D 


00 


040004F1 


015F 


00 


D4000328 


0161 





0858 


0162 





0859 



0163 085E 

0164 00 C40001CB 

0166 4828 

0167 700E 

0168 00 C40001C9 



K Tfi 



NO. 



01MAY66 
4l512r 



OA 



OC WAITE+1 FOUND A BLANK ILSW 
AT INTERRUPT. PUSH 
RESET AND START TO 
RESTART THE PROGRAM. 

DC WAITF+1 LOST INTRPT ON READ 

WHILE TRYING TO REST- 
ORE RECORD FOR RETRY 
AFTER PASSING CLEANER. 

ORG 300 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

EDIT ROUTINE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DC /BDOO PIO 

START LDX L3 FDT IX 3 = LDR RETURN 

STX L3 /0124 STORE IN LOADER 

LDX X /0050 GO TO LOADER 

EOT LDX 2-5 IX 2 = NO. /ENTRIES 

EDT1 LD 2 8 GET AN ENTRY 

STO L2 EDIT+5 SET IN EDIT AREA 

"OX 2 1 OECR IX 2 

MDX EDT1 LOOP 

LDX L3 E0T2 IX 3 = LDR RETURN 

STX L3 /0124 STORE IN LOADER 

LDX X /0050 GO TO LOAOER 

EOT 2 LD L /0001 GET LOC I 

EOR L TERM 

„..,. BSC l IS THI S END EDIT 

WAIT1 WAIT 1 N 

BEGIN LDX L3 27 ix = NO LEVELS 

nrn... ,!L L INTR2 GET COMMON INTR TRAP 
BEGAN STO L3 7 SET 

MDX 3 -1 OECR IX 3 

MDX BEGAN LOOP 

STO L /0001 SET CE TRAP 

LD L TPINT GET TAPE TRAP 

STO I EDIT*2 SET 

LDD L RSTRT GET RESTART 

STO L /0006 SET RESTART 

LD L RSRT GET RESTART MDX 

STO L /OOOO SET 

IAIT2 WAIT 2 WAIT FOR SWITCHES 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

PROGRAM INITILIZATION 



XXXXXXXXXXXXXXXXXXXXXXX 



MTST 



SLA 
STO 
STO 
STO 
STO 
XIC 
XIO 



16 

TAPEO 

TAPE1 

RID 

WRERR 

UNMKO 

UNMK1 



XXXXXXXXXXXXXXXXXXXXXX 
CLEAR ALL NECESSARY 
♦LOCATIONS 



•XXXXXXXXXXXXXXXXXXXXXXX 



SUPER 



♦XXXXXXXXXXXXXXXXXXXXXXX 



SUPR 



XIO' 

LD 

BSC 

MDX 

LD 



ROBSW 
SWO 

♦ z 

SUPR3 
EDIT+3 



UNMASK ALL LEVELS 
XXXXXXXXXXXXXXXXXXXXXX 
VISOR ROUTINE 

XXXXXXXXXXXXXXXXXXXXXX 
READ DATA SWS 
GET SWS 

IS DRIVE TO BE RUN 
NO 
GET NO TRACKS OR 
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8BD00680 

8BD00690 

88000700 

8BD0O710 

8BD00720 

8BD0O730 

8BD00740 

8BD00750 

8BD00760 

8B000770 

8B000780 

8BD00790 

8BD00800 

8BD00810 

8BD00820 

8BD00830 

8BD00835 

8BD00840 

8BD00850 

8BD00860 

8BD00870 

8B000880 

8B000890 

8BD00900 

8BD00910 

8BD00920 

8BD0O930 

8BD00940 

8BD00950 

8BD00960 

8BD00970 

8BD00980 

84000990 

8BD01000 

8B001010 

8B001020 

8BD01030 

8BD01040 

8BD01050 

8BD01060 

8BD01070 

8BD01080 

83D01090 

8B001100 

8BD01110 

8BD01120 

8BD01130 

8BD01140 

8BD01150 

8BD01160 

8BD01170 

8BD01180 

8BD01190 

8BD0120: 

8BD01210 

8BD01220 

8B001230 

8BD01240 

8BD01250 

8B001260 

8BD01270 

8BD01280 

8BD01290 

8BD01300 

8BD0131O 

8BD01320 

8BD01330 

8BD01340 
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€ 



016A 


4820 




BSC 




Z 


IS IT A 9 TRACK 


016B 


700A 




MOX 




SUPR 3 


NO 


016C 00 


C40001C6 




LO 


L 


EDIT 


GET AREA CODE 


016E 


D049 




STO 




TAPEO 


SAVE 


016F 


6100 




LDX 


1 





SET 1XING-0R 


0170 00 


4400041E 




BSI 


L 


SNDSU 


SENSE DRIVE 


0172 


4804 




BSC 




E 


IS DRIVE READY 


0'73 


7034 




MDX 




SUPR4 


NO 


0174 00 


440003F6 




BSI 


L 


RWD 


REWIND DRIVE 


0176 00 


C40001CA 


SUPR3 


ID 


L 


EDIT+4 


GET NO TRACKS OR 1 


0178 


4828 




BSC 




♦ Z 


IS OR 1 AVAIL 


0179 


7012 




MOX 




SUPR* 


NO 


017A 


4820 




BSC 




Z 


IS IT A 9 TRACK OR 


0178 


7010 




MOX 




SUPR8 


NO 


01 7C 00 


C40001CB 




LD 


L 


SHO 


GET DATA SWS 


017E 


1001 




SLA 




1 




017F 


4828 




BSC 




♦ Z 


IS OR 1 TO BE RUN 


0180 


700B 




MDX 




SUPR8 


NO 


0181 00 


C40001C6 




LD 


L 


EOIT 


GET AREA CODE 


3183 


F04A 




EOR 




MOD+1 


SET OR 1 MOO 


0184 


D034 




STO 




TA"E1 


SAVE 


0185 


6101 




LDX 


1 


1 


SET IXING DR 1 


0186 00 


440004 IE 




BSI 


L 


SNDSW 


SENSE DRIVE 


0188 


4804 




BSC 




E 


IS OR READY 


0189 


7026 




MDX 




SUPR6 


NO 


018A 00 


440003F6 




BSI 


L 


RWD 


REWIND DRIVE 


018C 


C02B 


SUPR8 


LD 




TAPEO 


GET DR AREA CODE 


0180 00 


4C180191 




BSC 


L 


SUCRO ,+- 


IS IT ZERO 


018F 


6100 




LDX 


1 





NO-SET TO OR 


0190 


7004 




MDX 




SUPR1 


START PROGRAM 


0191 


C027 


SUPRO 


LO 




TAPE1 


GET OR 1 AREA CODE 


0192 00 


4C1801F1 




BSC 


L 


RETR1 ,♦- 


BRANCH IF CLEAR 


0194 


6101 




LDX 


1 


1 


SET IXING TO DR 1 


0195 


082C 


SU»R1 


XIO 




RDBSW 


READ DATA SWS 


0196 


C034 




LO 




SWO 


GET SWS 


0197 


4804 




BSC 




E 


IS HLT BEFORE RTN ON 


0198 


3003 


WAIT3 


WAIT 




3 


YES 


0199 


082A 




XIO 




RDSSW 


READ SNS/PRG SWS 


019A 


C031 




LD 




SW1 


GET SNS/PRG SWS 


019B 


1808 




SRA 




8 




019C 00 


4C2001A2 




BSC 


L 


SUPR2.Z 


IS A RTN SEL 


01 9 E 00 


C40004F1 




LD 


L 


RID 


NO-GET RTN NO 


01A0 00 


84000684 




A 


L 


ONE 


ADD ONE 


01A2 00 


D40004F 1 


SUPR2 


STO 


L 


RID 


SET RTN NO 


01A4 00 


678004F1 




LDX 


13 


RID 


IX 3 = ROUTINE NO 


01A6 00 


4F8001D3 


* 
• 
* 


BSC 


13 


CMRTT 

DRIVE 
READY 


GO TO ROUTINE 

SELECTED BUT NOT 


01A8 


1010 


SUPR4 


SLA 




16 


CLEAR DR AREA CODE 


01A9 


DOOE 




STO 




TAPEO 




01AA 00 


4400043A 




BSI 


L 


PRINT 


GO PRINT 


01AC 


COOO 




OC 




/COOO 


MSG 


01AD 


0002 




DC 




/0002 


FORM 2 


01AE 


7094 




MDX 




BEGIN 


CONTINUE 


01 AF 


70B3 


SUPR5 

* 
* 


MDX 




SUPR 

DPIVE 
READY 


LOOP ON ERROR 

1 SELECTED BUT NOT 


01B0 


1010 


SUPR6 


SLA 




16 


CLEAR DR 1 AREA CODE 


0181 


D007 




STO 




TAPE1 




01B2 00 


4400043A 




BSI 


L 


PRINT 


GO PRINT 


01B4 


C001 




OC 




/C001 


MSG 1 


01B5 


0002 




DC 




/0002 


FORM 2 


01B6 


708C 




MOX 




BEGIN 


CONTINUE 


01 B7 


70BE 


SUPR7 


MOX 




SUPR3 


LOOP ON ERROR 


DATE 
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01MAY66 
415120A 
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\ > 
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8B001*>70 






8B001580 






8BD01590 






88001600 






8B001610 






8B001620 






88D01630 






8B001640 






8BD01650 






8BD01660 






8B001670 






8BD01680 






8BD01690 






8BD01700 






8BD01710 






8BD01720 






8BD01730 






8B001740 






8BD01750 






8BD01760 






8BD01770 






8BD01780 






8BD01790 






8BD01800 






8BD01810 


- 




8BD01820 






8BD01830 






88001840 






8BD01850 






8BD01860 






8BD01870 






8B001880 






8BD01890 






8B001900 






8B001910 






8BD01920 






8BD01930 




- 


8BD01940 
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• 








CONSTANTS 




01 88 




0000 




BSS 


E 









0188 





0000 


TAPEO 


DC 







AREA 


CODE 


01B9 





0000 


TAPEl 


DC 







AREA 


COOE 


01BA 





0000 


UNMKO 


DC 







UNMASK LOWER 


01BB 





0480 




DC 




/0480 






01 BC 





0000 


UNHK1 


DC 







UNMASK UPPER 


01B0 





0481 




DC 




/0481 






01BE 





FFFF 


MKO 


DC 




/FFFF 


MASK 


LOWER 


01BF 





0480 




DC 




/0480 






01C0 





FFFF 


MK1 


DC 




/FFFF 


MASK 


UPPER 


01C1 





0481 




DC 




/0481 






01C2 





01CB 


ROBSW 


DC 




SWO 


READ 


DATA SWS 


01C3 





0240 




DC 




/0240 






01C4 





01CC 


ROSSW 


DC 




SW1 


READ 


SNS/PRG SWS 


01C5 





0260 




DC 




/0260 






01C6 





0000 


EOIT 


DC 







AREA 


COOE 


01C7 





0000 




DC 







ILSW 


BIT 


01C8 





0000 




DC 







INTR 


ADRS 


01C9 





0000 




DC 







TRKS 


DR 


01CA 





0000 




DC 







TRKS 


OR 1 


01CB 





0000 


SWO 


DC 







DATA 


SW STORAGE 


01CC 





0000 


SW1 


DC 







SNS/PRG SW STORAGE 


01CD 





0000 


MOD 


DC 











01CE 





0020 




DC 




/0020 


MOD FOR DR 1 


01 DO 




0000 




BSS 


E 









0100 


00 


4C000143 


RSTRT 


BSC 


L 


BEGIN 


RESTART BRANCH 


0102 





7005 


RS*T 


MOX 


X 


/0005 


RESTART MDX 








• 






ROUTINE TABLE 


01D3 





0016 


CMRTT 


DC 




22 


NUMBER OF ROUTINES 


01 04 





0624 




DC 




CMRT 


ROUTINE 1 


01 05 





0624 




DC 




CHRT 




2 


0106 





0624 




DC 




CMRT 




3 


0107 





0624 




DC 




CMRT 




4 


0108 





0624 




DC 




CMRT 




5 


0109 





0624 




DC 




CMRT 




6 


01DA 





0624 




DC 




CMRT 




7 


01 OB 





0689 




DC 




RTN8 




8 


01 OC 





06E3 




DC 




RTN9 




9 


01DD 





0758 




DC 




RTN10 




10 


01DE 





07B4 




DC 




RTN11 




11 


01DF 





07F7 




DC 




CMR12 




12 


01E0 





07F7 




DC 




CMR12 




13 


01E1 





07F7 




DC 




CMR12 




14 


01E2 





07F7 




DC 




CMR12 




15 


01E3 





07F7 




DC 




CMR12 




16 


01E4 





07F7 




DC 




CMR12 




17 


01E5 





07F7 




DC 




CMR12 




18 


01E6 





0855 




DC 




RTN19 




19 


01E7 





08AD 




OC 




RT20 




20 


01E8 





08F7 




DC 




RT21 




21 


01E9 





01EA 




DC 




RETRN 


END PROG 








♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

9 








* 






ROUTINES RETURN HERE 








♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


01EA 


00 


C40004F1 


RETRN 


LD 


L 


RID 


GET RTN NUMBER 


01 EC 





F0E6 




EOR 




CMRTT 






01E0 


00 


4C1801F1 




BSC 


L 


RETR1.+- 


BRANCH = ALL RTNS 


01EF 


00 


4C000195 




BSC 


L 


SUPR1 


CONTI 


NUE PROG 


01F1 


00 


4400043A 


RETR1 


BSI 


L 


PRINT 


PRINT-PROG COMPLETE 


01F3 





C002 




DC 




/C002 


MSG 2 


01F4 





0032 




DC 




/0002 


FORM 


2 


DATE 
EC NO. 


01MAY66 
415120A 


0*^66 












4 


T •? " 


£ * 


4 




f * 4 


' 4 


* f » 4 




X 


., 


* 
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\ , \ 


*, 


\ , \ 
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8BD02140 
8BD02150 
8BD02160 
8BD02170 
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8B002190 
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8BD02220 
8BD02230 
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8B002250 
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88002410 
8B002420 
8BD02430 
8BD02440 
8BD02450 
8BD02460 
8BD02470 
6BD024B0 
8BD02490 
86002500 
8B002510 
8BD02520 
88D02530 
8B002540 
3BD02550 
8BD02560 
8BD02570 
8BD02580 
8B002590 
8BD02600 
8BD02610 
8BD02620 
8B002630 
8BD02640 
8BD02650 
8B002660 
8BD02670 
8BD02680 
8BD02690 
8BD02700 
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00 
00 



01F5 
01F6 
OIF 7 00 
01F9 00 
01FB 00 
01FD 
OlFE 
01FF 
0201 
0203 00 
020 5 00 

0207 

0208 

0209 00 
020B 00 

020D 00 

020F 

0210 00 
0212 00 

0214 

0215 00 
0217 



00 



7000 

1010 

050001B8 

C40001B8 

4C1 80203 

6100 

1010 

D40004F1 

4C000195 

C40001B9 

4C18020D 

6101 

1010 

D40004F1 

4C 000195 

0C0001C2 

1010 

D40004F 1 

C40001CB 

1804 

4C040163 

4C000143 



0219 

021A 

02 IB 

021C 

0210 

021E 

0220 00 

0222 00 

0224 

0226 

0227 

0228 

022A 

022 B 

022C 

0220 00 

022F 

0230 

0231 

0232 

0233 

0234 

0236 

0236 

0237 



00 





00 













00 








0238 

0239 

023A 
023B 



0000 

2818 

D81A 

081B 

D01D 

44180240 

F40001C7 

4C180227 

44000242 

700B 

C014 

F50001B8 

D012 

0810 

C010 

F4000684 

DOOO 

080B 

D008 

C803 

2000 

4CC00219 

0000 

0000 

0000 

0000 
0300 

0000 
0000 



02 3 C 0700 

023 0000 

02 3 E 0242 

023F C 0219 

0240 1000 

0241 300E 



MDX 
RETR2 SLA 
STO 
LD 
BSC 
LOX 
SLA 
STO 
BSC 
RETR3 LO 
BSC 
LOX 
SLA 
STO 
BSC 
• 

END XIO 
SLA 
STO 
LD 
SRA 
BSC 
BSC 
♦XXXXXXXXX 

* 

♦XXXXXXXXX 
INTR DC 



RETR2 
16 
LI TAPEO 
L TAPEO 
L RETR3.+- 
1 
16 
L RID 
L SUPR1 
L TAPE1 
L END,*- 
1 1 
16 
RID 
SUPR1 

RDBSW 

16 

RID 

SWO 

4 

SUPR.E 

BEGIN 



CONTINUE ADRS 
CLEAR AREA CODE 

GET OR AREA COOE 
IS IT CLEAR 
NO- SET TO OR 
CLEAR RTN NUMBER 

GO 10 SUPERVISOR 
GET OR 1 AREA CODE 
IS IT CLEAR 
NO-SET TO DR 1 
CLEAR ROUTINE NUMBER 

GO TO SUPERVISOR 

READ OATA SWS 
CLEAR A REG 
CLEAR RTN NO 
GET DATA SWS 

IS LOOP PROG ON 
NO 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
TAPE INTERRUPT ROUTINE 



STS 

STD 
XIO 
STO 
BSI 
EOR 
BSC 
BSI 
MDX 
INTR1 LD 
EOR 
STO 
XIO 
LD 
EOR 
STO 
XIO 
STO 
INTR3 LDD 
TASS LOS 
BOSC 
BSS 
OC 
DC 

DC 
DC 



TAAQ 

* 
ILSW 



DSW DC 
TAILS DC 

SDSW DC 

DC 

* 

INTR2 DC 
TPINT DC 

TERR NOP 
WAITE DC 



XXXXXXXXXXXXX 


TASS 
TAAQ 
ILSW 
TAILS 
L TERR.+- 
L EDIT+1 
L INTR1.+- 
L SVINT 
INTR3 
SDSW 
LI TAPEO 
SDSW+1 
SDSW 
SDSW+1 
L ONE 

SDSW+1 
SDSW 
OSW 
TAAQ 

I INTR 
E 




/0300 



XXXXXXXXXXXXXXXXXXXXXXX 



SAVE STATUS 

SAVE A AND 

SENSE ILSW 

SAVE 

BRANCH IF BLANK 

BRANCH IF TAPE 
NOT TAPES 

GET FNC 

SET AREA CODE 

SAVE 

SENSE-NO RESET 

GET IOCC 

SE1 BIT 15 

SAVE 

SENSE-RESET 

SAVE SENSE WO 

RESTORE A AND 

RESTORE STATUS 

EXIT 

A AND STORAGE 



SENSE ILSW IOCC 



IE 



IX 






/0700 


SVINT 
INTR 



/300E 



DSW STORAGE 
ILSw STORAGE 

DSW IOCC 



COMMON INT TRAP 
TAPE INT TRAP 



BLANK ILSW WAIT 



DATE 
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8BD02710 

8BD02720 

8BD02730 

8BD02740 

8BD02/50 
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8BD02830 
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8B002860 
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8B002970 

8BD02980 
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8BD03000 

8BD03010 

8B003020 

8B003030 

8BD0304C 

88003050 

8B003060 

8BDO3070 

8B003080 

8BD03090 

8BD03100 

8BD03110 

8B003120 

8BD03130 

8BD03140 

8BD03150 

88003160 

8BD03170 

8BD03180 

8BD03190 

88D03200 
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8BD03220 

8B003230 

8B003240 

8BD03250 

8BD03260 

8BD03270 

8BD03280 
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8B003300 
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8BD03320 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

ROUTINE TO SERVICE NON- 
PROGRAM GENEPATEO 
INTERRUPTS 



0242 

0243 00 
0245 00 
0247 



024 8 00 
02-.A 00 
024C 

024 D 
024E 00 

0250 

0251 

025 2 00 

02 54 00 

02 56 00 

0258 

0259 

025A 

025B 

025C 

0250 

025E 

025F 

0260 

0261 

0262 

026 3 

0264 00 

0266 

026 7 00 

0269 00 

026 B 

026C 

026D 

026 E 

026 F 

0270 

0271 

0272 

0273 00 

0275 

0276 

0277 

0278 

0279 

027A 

027B 

02 7C 

027D 00 

027F 00 

0281 00 
























0000 

OCOOOIBE 

OC0001CO 

0044 

C400000A 

9400023E 

4818 

7006 

C400000A 

00F1 

COEC 

D40000CA 

OC 00023 8 

7402028A 

1010 

D02D 

C02A 

002D 

C027 

002A 

C028 

1008 

E827 

E827 

D02A 

0828 

74FF028 8 

70F7 

74010287 

C40001C6 

180B 

901A 

4818 

70F8 

C017 

9012 

4808 

TOE 9 

74FF028A 

7001 

7005 

COOE 

D010 

1010 

DOOC 

70E0 

COOF 

0C0001BA 

0C0001BC 

4CC00242 



0283 001F 

0284 OOFF 

0285 0701 

0286 0700 

0287 0000 

0288 0000 

0289 0000 
02 8 A 0000 



►XXXXXXXXX 
SVINT DC 
XIO 
XIO 
STO 
LD 
S 

BSC 
MDX 
LD 
STO 
LD 
STO 

SVIN3 XIO 
MDX 
SLA 
STO 
LO 
STO 

SVINO LD 
STO 



SVIN1 LD 
SLA 

OR 
OR 
STO 
XIO 
MDX 
MOX 
SVIN2 MOX 
LO 
SRA 
S 

BSC 
MDX 
LD 
S 

BSC 
MDX 
MDX 
MDX 
MOX 
LD 
STO 
SLA 
STO 
MDX 
SVEXT LD 
XIO 
XIO 
BOSC 



SVO 
SV1 
SV2 
SV3 
SV4 
SV5 
SV6 
SV7 



XXXXXXXXXXXXX 

L MKO 
L KK1 

SVIO 
L /OOOA 
L INTR2 
+- 

SVIN3 
L /OOOA 
SVINT 
INTR2 
L /OOOA 
L ILSW 
L SV7.2 
16 
SV4 
SV2 
SV6 
SV1 
SV5 
SV4 
11 
SV5 
SV6 

SVIO+1 
SVIO 
I- SV5.-1 

SVIN1 
L SV4.1 
L EDIT 
11 
SV4 
+- 

SVIN2 
SV4 
SVO 
♦ 

SVINO 
L SV7.-1 

*+l 

SVEXT 

SV3 

SV6 

16 

SV4 

SVINO 

SVIO 
L UNMKO 
L UNMK1 
I SVINT 



XXXXXXXXXXXXXXXXXXXXXXX 
MASK ALL LVLS 

SAVE A REG 
GET LOX 10 
SUB AORS SVINT 
SKIP = ADRS 10 
NOT ADRS 10 
GET ADRS 10 
SET RETURN 
RESTORE LOC 10 

RESET ILSW 
SET PASS SW 

CLEAR AREA CODE CTR 

SET IOCC IN USE SW 

SET MODIFIER CTR 



♦BUILD IOCC 

SENSE AND RESET DSW 

BRANCH IF NOT ALL MD 
INCREMENT AREA CODE 
GET TAPE AREA COOE 



SKIP = NOT TAPE 
SET TO NEXT A C 

CK IF ALL A C USED 

GO USE NEXT A C 
SKIP IF SECOND PASS 



SET IOCC FOR PI 

SET AC FOR NEXT 
♦PASS 

RESTORE ACCUM 
UNMASK ALL LEVELS 



IE 



EXIT 
CONSTANTS 



IX 



OC 
OC 
OC 
DC 
OC 
DC 
OC 
OC 



/001F 
/OOFF 
/0701 
/0700 









NUMBER OF AREA CODES 
NUMBER OF MODIFIERS 
RESET DSW 
RESET PISW 
AREA COOE INDICATOR 
MODIFIER INDICATOR 
IOCC IN USE 
PASS SWITCH 
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02 8C 0000 

028C 0000 
028D 0000 



SfcNiE DSW IOCC 



028E 
02 8F 
0290 
0291 
0293 
0294 
0295 00 
029 i 
0298 00 
029A 
029 B 
029C 
0290 00 
029 F 00 
02 A 1 00 









00 







0000 

6308 

C012 

0700 093 8 

73FF 

70FC 

67000131 

1010 

D7000940 

73FF 

70FC 

C007 

D4000942 

04000944 

4C80028E 



BSS E 

SVIO DC 

DC 

♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* ROUTINE TO SET 7F PATTERN 

♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



DC 

LOX 3 8 
LD P7F 

SP7F0 STO L3 IOAA-1 
MDX 3 -1 
MDX SP7F0 

LDX L3 305 
SLA 16 

SP7F1 STO L3 IOAA+7 
MDX 3 -1 
HDX SP7F1 

LD CRC7F 

STO L IOAA+9 

STO I IOAA+11 

BSC I SP7F 



02 A 3 

02A4 



02A5 
02A6 
02A7 00 
02A9 00 
02AB 
02 AC 
02A0 00 
02 A F 
02 BO 00 
02 B2 
02B3 
02B4 
02B5 00 
02B7 00 
02 B9 00 



7F7F 

007F 



0000 

6308 

C40006E1 

D7000938 

73FF 

70FC 

67000131 

1010 

07000940 

73FF 

70FC 

C006 

D4000942 

04000944 

4C8002A5 



SE 

IX 3 = 16 CHARACTERS 
GET 7F7F 
SET IN I/O AREA 
DECR IX 3 
LOOP 

IX 3= 608 CHARACTERS 
CLEAR A REG 
SET IN I/O AREA 
DECR IX 3 
LOOP 

GET 00 7F 

SET AS CRC CHARACTER 
SET AS LRC CHARACTER 
EX" SX 



SE 



CONSTANTS 

7F Dc /7F7F PATTERN WORO 

*C7F OC /007F CRC/LRC CHARACTER 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

ROUTINE TO SET 8F PATTERN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

°"~ "" 

38 IX 3 = 16 CHARACTERS 

L P8F GET PATTERN 

L3 IOAA-l SET IN I/O AREA 

' -I DECR 1X3 

SP8F0 LOOP 

L3 305 IX 3= 608 CHARACTERS 

16 CLEAR A REG 

L3 I0AA*7 SET IN I/O AREA 

3 -1 DECR IX 3 

SP8F1 LOOP 

CRC8F GET 008F 

L 10AA+9 SET AS CRC CHARACTER 

L IOAA+ll SET AS LRC CHARACTER 

I SP8F EXIT sx 



02BB 008F 



SP8F DC 

LOX 

LD 
SP8F0 STO 

MDX 

MDX 

LOX 

SLA 
SP8F1 STO 

MDX 

MDX 

LD 

STO 

STO 

BSC 

* 

CRC8F DC /008F CRC/LRC CHARACTER 

*XXXXXXXXXXX>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

* 

*XXXXXXXXXXX>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



CONSTANTS 



SET I/O AREA TO 8080 



02 BC 


0000 


SP80 DC 







02BD 


6308 


LOX 


3 


8 


02BE 00 


C40002D3 


LD 


L 


P80 


02 CO 00 


D7000938 


RT11J STO 


L3 


IOAA-1 


02C2 


73FF 


MDX 


3 


-1 


02C3 


70FC 


MDX 




RT11J 


02C4 00 


67000131 


LDX 


L3 


305 


02C6 


1010 


SLA 




16 


02C7 00 


07000940 


RTUK STO 


L3 


IOAA+7 


02C9 


73FF 


MDX 


3 


-1 


02CA 


70FC 


MDX 




RTUK 


DATE 
EC NO. 


01MAY66 
415120A 


04NOV66 
415233 







IX 3 = 16 CHARACTERS 

GET 8080 

SET IN I/O AREA 

OECR IX 3 

LOOP 

IX 3 = 608 CHARACTERS 

CLEAR A REG 

SET IN I/O AREA 

DECR IX 3 

LOOP 



SE 



PART NO. 
PAGE 



8B004070 

88D04080 

8BD04090 

8BD04100 

8BD04110 

8BD04120 

8BD04130 

8BD04140 

8B004150 

8BD04160 

8BD04170 

8BD04180 

8B004190 

8BD04200 

8B004210 

8BD04220 

8BD04230 

8BD04240 

8BD04250 

SBD04260 

8BD04270 

8B004280 

8B004290 

8BD04300 

8BD04310 

8B004320 

8B004330 

8B004340 

8BD04350 

8BD04360 

8B004370 

8B004380 

8BD04390 

8BD04400 

8BD04410 

8BD04420 

8BD04430 

8BD04440 

8BD04450 

8BD04460 

8BD04470 

8BD04480 

8BD04490 

8BD04500 

8BD04510 

8BD04520 

8BD04530 

8BD04540 

8BD04550 

8BD04560 

8BD04570 

8BD04580 

8BD04590 

8BD04600 

8B004610 

8BD04620 

8BD04630 

8BD04640 

8BD04650 

8BD04660 

8BD04670 

8BD04680 

8BD04690 

8BD04700 

8BD04710 

8BD04720 

8B004730 

8BD04740 



2183276 

4 
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o 

f) 



u 


n 
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4 



4 > 
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f * 
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4 * 



4 > 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 CYCLIC REDUNDANCY CHECK FUNCTION TEST 



02CB C006 
02CC 00 D4000942 
02CE 00 04000944 
02D0 00 4C8002BC 
02D2 0080 
02D3 8080 



0204 0000 
02D5 00 C50001B8 
02D7 F04E 
02D8 D04A 
0209 C051 
02 DA 00 D4000938 

02DC 00 4400041E 
020E 1801 
02DF 4804 
02E0 7011 

02 El 0840 
02E2 3004 

02E3 00 C400023A 
02E5 1802 
02E6 4804 
02E7 7036 

02E8 00 C400023A 
02EA E03C 
02EB 4820 
02 EC 700E 

02E0 C03A 
02EE 4820 
02EF 7026 
02F0 00 4C8002D4 



02F2 00 4400043A 
02F4 E002 



02F5 
02F6 
02F7 
02F8 
02F9 
02FA 



02FB 
02FC 00 
02FE 
02FF 

0300 

0301 

0302 00 
0304 00 
0306 00 
030 8 
0309 
030A 
030B 
030C 











4 n 



DATE 
EC NO. 



0003 
7001 
70E4 
1010 
D02E 
3005 



C02C 

84000684 

0029 

9029 

4820 

700B 

C400023A 

04000438 

4400043A 

E003 

0003 

70ED 

1010 

D01B 



01MAY66 
415120A 



LD 
STO 
STO 
BSC 
CRC30 DC 
P80 DC 



CRC80 

IOAA+9 

IOAA+U 

SP80 

/0080 

/8080 



♦XXXXXXXXXXXXXXXXXXXXXXX 



GET CRC/LRC CHARACTER 
SET AS CRC CHARACTER 
SET AS LRC CHARACTER 
EXIT SX 

CRC/LRC CHARACTER 
PATTERN 
XXXXXXXXXXXXXXXXXXXXXX 



♦XXXXXXXXXXXXXXXXXXXXXXX 



W<T DC 
WRT01 LD 
EOR 
STO 
LD 
STO 
• 

W*T02 BSI 
SRA 
DSC 
MDX 

XIO 
WAIT4 WAIT 

• 

LD 

SRA 

BSC 

MOX 

LD 

AND 
BSC 

MDX 

* 

LO 
BSC 

MDX 
WRT03 BSC 

* 

» 

WRT04 BSI 
DC 
DC 
MDX 
MDX 

W1T05 SLA 
STO 

WAIT5 WAIT 

* 

WRT 06 LD 

A I 

STO 

S 

BSC 

MDX 

LO I 

STO I 

BSI I 

DC 

DC 

MDX 

SLA 

STO 



WRITE ROUTINE 

XXXXXXXXXXXXXXXXXXXXXX 



LI TAPEO 
WRTCC 
WRIOC+1 
WRTWC 

L IOA 

L SNOSW 
1 
E 
WRT04 

WRIOC 

4 

L OSW 
2 
E 
WRTU 

L DSW 
WRTSW 
2 
WRT06 

WRERR 
I 

WRT09 
I WRT 



SE 



WRT 07 



04N0V66 
415233 



SRC 



GET AREA CODE 

SET WRT FNC 

SAVE 

GET WRT WD CT 

SET 

SENSE DRIVE 

IS OR READY 
NO 

WRITE ONE RECORD 
WAIT FOR INTRPT 

GET SENSE WORD 

IS TAPE MARKER ON 
YES 



GET SENSE WD 

IS WORD AS EXPECTED 
NO 

GET ERROR COUNT 

WERE THERE ANY EPRS 

YES 

EXIT SX 



DRIVE WAS NOT REAOf 

PRINT PRINT DR NOT READY 

/E002 ERROR 2 

/0003 FORM 3 

WRT05 CONTINUE 

WRT02 LOOP ON ERROR 

16 CLEAR ERROR CT 

WRERR 

5 TERMINATE PROG 

DSW NOT AS EXPECTED 

WRERR GET ERROR CT 

ONE ADD ONE 

WRERR SAVE 

FOUR SUB 4 

I RETRIED 3 TIMES 

WRT08 NO 

DSW GET SENSE WO 

SNSV SAVE 

PRINT PRINT-CAN NOT WRITE 

/E003 ERROR 3 

/0003 FORM 3 

WRT05 CONTINUE 

16 CLEAR ERR CT 

WRERR 



SRC 



PART NO. 2183276 
PAGE 4A 



8BD04750 

8BD04760 

8BD04770 

8BD04780 

8BD04790 

8B0048C0 

8B004810 

8BD04820 

8BD04830 

8B004840 

8BD04850 

8BD04860 

8BD04870 

8BD04880 

8B004890 

8BD04900 

8B004910 

8BD04920 

8BD04930 

8BD04940 

8BD04950 

88D04960 

8BD04970 

8B004980 

8BD04990 

8BD05000 

8B005010 

8BD05020 

8BD05030 

8BD05040 

8B005050 

8BD05060 

8BD05070 

8B005080 

8BD05090 

8BD05100 

88005110 

8BD05120 

8BD05130 

8BD05140 

8BD05150 

8BD05160 

8BD05170 

8BD05180 

8BD05190 

8BD05200 

8BD05210 

8B005220 

8BD05230 

8BD05240 

8BD05250 

8BD05260 

8BD05;?0 

88005280 

8BD05290 

8B005300 

8B005310 

8BD05320 

8BD05330 

8BD0 5340 

8BD05350 

8BD05360 

8BD05370 

8BD05380 

8BD05390 

8B005400 

8BD05410 

8BD05420 
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4 * 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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PART NO. 
PAGE 



O 
»"• o 



2183276 
5 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 CYCLIC REDUNDANCY CHECK FUNCTION TEST 



PART NO. 
PAGE 



2183276 
5A 



030D 00 


440003C4 


WRT08 


BSI 


L BSP 


GO BACKSPACE 


030F 00 


C50001B8 




LD 


LI TAPEO 


GET AREA CODE 


0311 


F012 




EOR 


ERA 


SET ERASE FNC 


0312 


D012 




STO 


ERA+1 


SET 


0313 


0810 


t 


XIO 


ERA 


ISSUE ERASE 


0314 


3006 


WAIT6 

* 


WAIT 


6 


WAIT FOR INTRPT 


0315 


70BF 


• 


MDX 


WRT01 


TRY AGAIN 






* 
* 




HAD 


ERRORS 


0316 00 


4400043A 


WRT09 


BSI 


L PRINT 


PRINT RECOVERED WR 


0318 


A 001 




DC 


/A001 


MSG 1 


0319 


0004 




DC 


/0004 


FORM 4 


031 A 


7000 




MDX 


WRT10 


CONTINUE 


031B 


1010 


WRT10 


SLA 


16 


CLEAR ERROR CT 


031C 


DOOB 




STO 


WRERR 




0310 


70D2 




MOX 


WRT03 


CO EXIT 


031E 00 


4400 03F 6 


tmn 


BSI 


L RWD 


GO REWIND 


0320 


70B4 


* 


MDX 


WRT01 


WRITE 






* 

* 




CONSTANTS 


0322 


0000 




BSS 


E 




0322 


0938 


WRIOC 


DC 


IOA 


WRITE IOCC 


0323 


0000 


• 
ERA 


DC 







0324 


0402 


DC 


/0402 


ERASE IOCC 


032 5 


0000 


* 
WRTCC 


DC 







0326 


0500 


DC 


/0500 


WRITE FNC 


0327 


3DBF 


URTSW 


DC 


/3DBF 


DSW CK-WRITE 


0328 


0000 


WRERR 


DC 





ERROR CT 


0329 


0004 


FOUR 


DC 


4 


CONSTANT 


032A 


OOOB 


ELE 


DC 


11 


CONSTANT 


032B 


4139 


WRTWC 


DC 


/4139 


WRT WD CT 



SRC 



00 
00 



032C 
032D 00 
032F 00 
0331 
0333 
0335 00 
0337 00 
0339 00 
033B 
033C 
033D 



0000 

C50001B8 

F40003BE 

040003BD 

C40003BA 

D4000938 

6F000353 

440004 IE 

1801 

4804 

7018 



♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
* READ ROUTINE 

♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



RD 



033E 087D 
033F 3007 

0340 00 C400023A 

0342 E07C 

0343 4820 

0344 7019 

0345 00 440003C4 
0347 0874 



DC 

LD 

EOR 

STO 

LD 

STO 

STX 

BSI 

SRA 

BSC 

MDX 

XIO 



RD01 

* 

* 

WAIT7 WAIT 

* 

LD 
AND 
BSC 
MOX 



BSI 
XIO 



LI TAPEO 
L RDFNC 
L RDIOC+1 
L RDTWC 
L IOA 
L3 RDE*1 
L SNDSW 

1 

E 

RD02 

ROIOC 

7 

DSW 

RD1DS 

Z 

RD04 

BSP 
RDIOC 



GET AREA CODE 

SET READ FNC 

SAVE 

GET READ WD CT 

SET 

SAVE IX 3 

SENSE DRIVE 

IS DRIVE READY 
NO 

ISSUE REAO 

WAIT FOR INTRPT 

GET SENSE WD 

IS DSW AS EXPECTED 
NO 

GO BACKSPACE 

ISSUE READ 



SE 



SRC 



SRC 



DATE 
EC NO. 



01MAY66 
415120A 



04N0V66 
415233 



8BD05430 

8BD05440 

8BD05450 

8BD05460 

8BD05470 

8BD05480 

8BD05490 

8BD05500 

8BD05510 

8BD05520 

8BD05530 

8BD05540 

8BD05550 

8B005560 

8B003570 

8BD05580 

8BDOS590 

8BD05600 

8BD05610 

8BD05620 

8BD05630 

8BD05640 

8BD05650 

8BD05660 

8B005670 

8B005680 

6BD05690 

88005700 

8BD05710 

8BD05720 

8BD0S730 

8BD05740 

8BD05750 

8BD05760 

8BD05770 

8BD05780 

8BD05790 

8BD05800 

8BD05810 

8BD05820 

8BD05830 

8BD05840 

8BD05850 

8BD05860 

8BD05870 

8BD05880 

8BD05890 

3BD05900 

8BD05910 

8B005920 

8BD05930 

8B005940 

8BD05950 

8BD05960 

8BD05970 

8B005980 

8BD05990 

8BD06000 

8B006010 

8BD06020 

8BD06030 

8BD06040 

8BD06050 

8BD06060 

8BD06070 

8BD06080 

PBD06090 

8BD06100 



PROG ID 
PAGE 



08BD-0 
5 



0348 3008 


WAIT8 WAIT 


8 


WAIT FOR INTRPT 


0349 00 C400023A 




LD 


L 


DSW 


GET SENSE WO 


0348 E074 




AND 




RD20S 




034C 4820 




BSC 




Z 


IS OSW OK 


034D 7010 


£ 


MDX 




RD04 


NO 


034E 00 C4000328 




LD 


L 


WRERR 


GET ERROR CT 


0350 4820 




BSC 




Z 


ArfY ERRORS 


0351 7059 




MDX 




RD07 


YES 


0352 00 67000000 


RDE 


LDX 


L2 





RESTORE IX 3 


0354 00 4C80032C 


* 


BSC 


I 


RD 


EXIT SX 




* 
* 






ORIVE IS NOT READY 


0356 00 4400043A 


RD02 


BSI 


L 


PRINT 


PRINT-NOT READY 


035 8 E004 




DC 




/E004 


ERROR 4 


0359 0003 




DC 




/0003 


FORM 3 


035A 7001 




MOX 




RD03 


CONTINUE 


035B 70DD 




MDX 




RD01 


LOOP ON ERROR 


035C 00 4C0002F8 


RD03 

* 


BSC 


L 


WRT05 


GO TERMINATE PROG 




• 
* 






SENSE WORD IS NOT CORRECT 


035E 00 C400023A 


RD04 


LD 


L 


DSW 


GET SENSE WORD 


0360 E060 




ANO 




CORDS 




0361 4820 




BSC 




Z 


IS ERROR CORRECTABLE 


0362 7036 




MDX 




RD05 


NO 


0363 00 C4000328 




LD 


L 


WRERR 


GET ERROR CT 


0365 E044 




AND 




RDTXO 


SAVE RETRY CT 


0366 9042 




S 




K009 


SUB 9 


0367 4818 




BSC 




♦- 


IS CT = 9 


0368 7007 




MDX 




CLN 


YES 


0369 00 C4000328 




LD 


L 


WRERR 


GET ERROR CT 


036B 00 84000684 




4 


L 


ONE 


ADD 1 


036D 00 D4000328 




STO 


L 


WRERR 


SAVE 


036F 7044 


* 


MDX 




RD09 


GO RETRY 




* 






GO 


PAST CLEANER 


0370 00 C4000328 


CLN 


LD 


L 


WRERR 


GET ERROR CT 


0372 1808 




SRA 




8 


SAVE CLEAN CT 


0373 9035 




S 




K009 


SUB 9 


0374 00 4CX80399 




BSC 


L 


RD05.+- 


BRANCH = 9 


0376 8031 




A 




K010 


ADD 10 


0377 1008 




SLA 




8 




0378 00 04000328 




STO 


L 


WRERR 


«AVE 


037A 6305 


CLNl 


LDX 


3 


5 


SET TO PASS CLEANER 


037B 6B08 


CLN2 


STX 


3 


CLN3+1 


SAVE IX 3 


037C 00 440003C4 




BSI 


L 


BSP 


GO BACKSPACE SRC 


037E 00 4400041E 




BSI 


L 


SNDSW 


SENSE DRIVE SRC 


0380 1803 




SRA 




3 




038 1 4804 




BSC 




E 


IS DR AT LD PT 


0382 7010 




MDX 




CLN8 


YES 


0383 00 67000000 


CLN3 


LDX 


L3 





RESTORE IX 3 


0385 73FF 




MDX 


3 


-1 


DECR IX 3 


0386 7CF4 




MDX 




CLN2 


LOOP 


0387 6305 




LDX 


3 


5 


SET TO RESTORE 


0388 6B06 


CLN5 


>TX 


3 


CLN7*1 


SAVE IX 3 


0389 73FF 




MDX 


3 


-1 


DECR IX 3 


038A 7001 




MDX 




CLN6 




0386 70AD 




MDX 




RD01 


GO RETRY RECORD 


038C 082F 


CLN6 


XIO 




RDIOC 


SKIP RECORD 


038D 300F 


WAITF 


DC 




/300F 


WAIT FOR INTRPT 


038E 00 67000000 


CLN7 


LDX 


L3 





RESTORE IX 3 


0390 73FF 




MDX 


3 


-1 


DECR IX 3 


0391 70F6 




MDX 




CLN5 


GO SKIP 


0392 70F5 




MDX 




CLN5 




DATE 01MAY66 


04N0V66 








EC NO. 415120A 


415233 









8BD06110 

8BD06120 

8BD06130 

8BD06140 

8BD06150 

8BD06160 

8BD06170 

8BD06180 

88006190 

88006200 

8BDO6210 

88D06220 

8B006230 

88D06240 

8BD06250 

8B006260 

8B006270 

8BD06280 

8BD06290 

8BD06300 

8B006310 

88D06320 

8BD06330 

8BD06340 

8BD06350 

8BD06360 

8BD06370 

8BD06380 

8BD06390 

8BD06400 

8BD06410 

8B006420 

8BD06430 

6BD06440 

8BD06450 

88006460 

8B006470 

8BD06480 

8BD06490 

8BD06500 

8BD06510 

8BD06520 

8BD06530 

8BD06540 

8BD06550 

8BD06560 

8B006570 

8BD06580 

8BD06590 

8BD06600 

8BD06610 

8BD06620 

8BD0663" 

8BD06640 

8BD06650 

8BD06660 

8BD06670 

8BD06680 

8BD06690 

88D06700 

8BD06710 

8BD06720 

8BD06730 

8BD06740 

8BD06750 

8BD06760 

8BD06770 

8BD06780 
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• 
• 
• 






RESTORE TAPE TO THE 
RECORD IN ERROR 






0393 C013 


CLN8 


LD 




K005 


GET 5 






0394 90EF 




S 




CLN3+1 


SUB PRESENT LOC 






0395 OOEE 




STO 




CLN3+1 


SAVE 






0396 00 67800384 




LOX 


13 CLN3+1 


LOAO IX 3 






0398 70EF 




hDX 




CLN5 


GO RESTORE 






0399 00 C400023A 


RD05 


LD 


L 


OSW 


GET SENSE WD 






0398 00 D4000438 




STO 


L 


SNSV 


SAVE 






0390 00 4400043A 
039 F E005 




3SI 
DC 


L 


PRINT 
/E005 


PRINT UNCORRECTABLE 
ERROR S 






03A0 0003 




DC 




/0003 


FORM 3 






03A1 700E 




MOX 




RD08 


CONTINUE 






03A2 1010 


R006 


SLA 




16 


CLEAR ERROR CT 






03A3 00 D4000328 




STO 


L 


WRERR 








03A5 00 4C0003B4 




BSC 


L 


RD09 


LOOP ON ERROR 






03A7 0005 


K005 


DC 




5 


CONSTANT 5 






03A8 OOOA 


K010 


DC 




10 


CONSTANT 10 






03A9 0009 


K009 


DC 




9 


CONSTANT 9 




' 


03AA OOFF 


RDTXC 

* 
• 


DC 




/OOFF 

HAD 


SAVE RETRY CT 
PRCVIOUS ERRORS 




r 


03AB 00 4400043A 
03A0 A002 


R007 


BSI 

DC 


L 


PRINT 
/A002 


PRINT-RECOVERED READ SRC 
MSG 2 




c 


03AE 0004 




oc 




/0004 


FORM 4 




03AF 7000 




MDX 




RD08 


CONTINUE 






03B0 1010 


RD08 


SLA 




16 


CLEAR ERROR CT 




f 


03B1 00 D4000328 




STO 


L 


WRERR 






03 B 3 709E 


• 


MOX 




RDE 


GO EXIT 




r 




• 
• 






SET 


UP TO RETRY 






03 B4 00 440003C4 


R009 


BSI 


L 


BSP 


GO BACKSPACE SRC 




, 


03B6 00 44000617 




BSI 


L 


DSLT 


GO DESELECT SRC 
GO RETRY 






03B8 00 4C000339 


* 


BSC 


L 


RD01 




r 




• 






CONSTANTS 






03BA 4003 


RDTWC 


DC 




/4008 


READ WD CT 






03BC 0000 




BSS 


E 











03BC 0938 


ROICC 


OC 




IOA 


READ IOCC 






03BD 0000 




DC 













03BE 0602 


* 

ROFNC 


DC 




/0602 


READ FUNCTION 






03BF 3D9F 


ROIOS 


DC 




/3D9F 


DSW CK-FIRST WORD 






03C0 3F9F 


R020S 


DC 




/3F9F 


DSW CK-SECOND WORD 






03C 1 3C0F 
03C2 0001 


C3RDS 
SELDR 


DC 
DC 




/3C0F 

1 


DSW CK-CORRECTABLE 
SEL OTHER DR 






03C3 0000 




DC 











t 




♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 




< 




* 
* 






BACKSTACE ROUTINE 






03C4 0000 


♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

BSP DC 




' 


03C5 00 440004 IE 


BSP01 


BSI 


L 


SNDSW 


SENSE DR SRC 






03C7 1801 




SRA 




1 






03C8 4804 




BSC 






IS DR READY 






03C9 701D 




MDX 




BSP06 


NO 






03CA 1802 




SRA 




2 








03CB 00 4C0403CE 




BSC 


L 


BSP02.E 


IS DR AT LD PT 






03CD 7002 




MDX 




BSP03 


NO 






03CE 00 4C8003C4 


BSP02 


BSC 


I 


BSP 


EXIT SRC 




i* 


03D0 00 C50001B8 


BSP03 


LD 


LI 


1APE0 


GET AREA CODE 




** 


DATE„ 01MAY66 
EC NO. 41S120A 


04M0V66 










i > 


415233 










f 


/ > f * f " 


f *■ 






$ > (i ■ 


f * f T f ' i" 


4 / 


|>A , 


y • K * * 




\ 
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A * < "% 
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8BD06790 

8BD06800 

8BD06810 
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8BD06830 

8BD06840 

8BD06850 

8BD06860 

8BD06870 

8BD06880 

8BD06890 

8BD06900 

8BD06910 

8BD06920 

3BD06930 

8BD06940 

8BD06950 

8BD06960 

8BD06970 

8BD06980 

8BD06990 

8BD07000 

8BD07010 

8BD07020 

8BD07030 

8BD07040 

8BD07050 

8BD07060 

8BD07070 

8B007080 

8B007090 

8BD07100 

8B007110 

8BD07120 

8BD07130 

8BD07140 

8B007150 

8BD07160 

8BD07170 

8B007180 

8B007190 

8B007200 

8B007210 

8BD07220 

8B007230 

8BD07240 

8BD07250 

8BDU7260 

8BD07270 

8BD07280 

8BD07290 

8BD07300 

8B007310 

8B007320 

8BD07330 

88007340 

8B007350 

8BD07360 

8BD07370 

8BD07380 

8BD07390 

8BD07400 

8BD07410 

8BD07420 

8BD07430 

8BD07440 

8BD07450 

8BD07460 
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PART NO. 2183276 
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V ^ * f 



0302 F021 

0303 0021 


t 


EOR 
STO 




BSPIO 
BSPIO+1 


SET BSP FNC 
SAVE 


8B007470 
8BD07480 




0304 081F 


• 
WAIT< 




XIO 




BSPIO 


ISSUE BACKSPACE 


8BD07490 
8BD07500 




0305 3009 


> WAIT 




9 


WAIT FOR INTRPT 


8B007510 
8B007520 




03D6 00 C400023A 
03D8 4804 
0309 7001 
030A 70F3 


* 


LD 
BSC 
MDX 
MDX 


L 


osw 

E 

BSP04 

BSP02 


GET SENSE WD 
IS DR READY 
NO 
YES-EXIT 


8BD07530 
8B007540 
8BD07550 
8BD07560 
8BD07570 
8BD07580 




03DB 00 C400023A 
03DD 00 D4000438 
030F CO 44000*3A 
03 El E006 


* 

BSP04 


LD 
STO 
BSI 
DC 


L 
L 
L 


DSW 
DSW 
SNSV 
PRINT 
/E006 


WRONG AFTER BSP 
GET SENSE WO 
SAVE 

PRINT WRONG OSW 
ERROR 6 


8BD07590 
8BD07600 
8BD07610 
8B007620 
8BD07630 
8BD07640 
8BD076S0 
3B007660 
8B007670 




03E2 0003 
03E3 7001 
03E4 70EB 
03E5 00 4C0002F8 


BSPOt) 

• 


DC 
MOX 
MDX 
BSC 


L 


/0003 
BSP05 
BSP03 
WRT05 


FORM-3 
CONTINUE 
LOOP ON ERROR 
TERMINATE 














SBD07680 






• 






DRIVE NOT READY 


8B007690 




03E7 00 C400023A 
03E9 00 04000438 
03EB 00 4400043A 
03E0 E007 
03EE 0003 
03EF 7001 
03F0 7004 
03F1 00 4C0002F8 


BSP 06 

BSP 07 

* 


LO 

STO 

BSI 

DC 

DC 

MDX 

MDX 

BSC 


L 
L 

L 

L 


OSW 

SNSV 

PRINT 

/E007 

/0003 

BSP07 

BSP01 

WRT05 


GET SENSE WD 

SAVE 

PRINT-NOT READY SRC 

ERROR 7 

FORM 3 

CONTINUE 

LOOP ON ERROR 

TERMINATE 


8BD07700 
8B007710 
8BD07720 
8BD07730 
8B007740 
8B 0077 50 
8B007760 
8BD07770 
8BD07780 














8BD07790 






9 






CONSTANTS 


8BD07800 




03F4 0000 




BSS 


E 







8B007810 




03F4 0403 
03F5 0000 


BSPIO 


DC 

DC 




/0403 

XXXXXXKXXX 


BACKSPACE IOCC 


8BD07820 
88007830 






*XXXX 

* 


xxxxxxxx 


XXXXXXXXXXXXXXXXXXXXXXX 


8BD07840 
8BD07850 














8BD07860 






* 






REWIND ROUTINE 


8BD07870 




03F6 0000 


•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

=twD nr. n 


8BD07880 
8B007890 




03F7 00 4400041E 
03F9 1801 


RWD01 


BSI 
SRA 


L 


SNDSW 

1 

E 

RWD04 

2 


SENSE DR SRC 


8BD07900 
8B007910 




03FA 4804 
03FB 7014 
03FC 1802 




BSC 
MDX 
SRA 




IS DR READY 
NO 


8B007920 
88D07930 
8BD07940 




03FD 4804 
03FE 700F 
03FF 00 C50001B8 

0401 FOIA 

0402 001A 


$ 


BSC 

MDX 

LD 

EOR 

STO 


LI 


E 

RW003 

TAPEO 

RWDIO 

RWDIO+1 


IS DR AT LD PT 

YES 

GET AREA CODE 

SET FNC 

SAVE 


8B007950 
8B007960 
8BD07970 
8BD07980 
8BDO7990 
8BD08000 




0403 0818 


t 


XIO 




RWDIO 


ISSUE REWIND 


8BD08010 
8BD08020 




0404 300A 


WAITA 

* 


DC 




/300A 


WAIT FOR INTRPT 


8BDO8030 
8BD08040 




0405 00 4400041E 
0407 1801 


*WD02 


BSI 

SRA 


L 


SNOSW 
1 


SENSE DR SRC 


8B008050 
8BD08060 




0408 4804 

0409 70FB 
040A 1802 




BSC 
MOX 
SRA 




E 

RWD02 

2 


IS REWIND C0MP1 ETE 

NO 


8BD08070 
8BD08080 
8BD08090 




040B 4804 
040C 7001 
0400 70F7 


* 


BSC 
MDX 

MDX 




E 

RWD03 

RWD02 


IS OR AT LD PT 

YES 

NO 


8BD08100 
8BD08110 
8BD0812O 
8BD08130 
8BD08140 




J?;* TE „ 01MAY66 


04N0V66 












EC NO. 415120A 


415233 








PROG ID 


08B0-0 
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040E 00 4C8003F6 



0410 00 
0412 00 
0414 00 

0416 

0417 

0418 

0419 



041 A 00 



C400023A 

D4000438 

4400043A 

E008 

0003 

7001 

70DD 

4C0002F8 



04 1C 0000 
04 1C 0404 
0410 0000 



041E 
041F 
0420 
0422 
0424 
042 5 
042 6 
0428 
0429 
042 B 
042C 
042D 
042E 
042 F 
0430 
0431 
0432 
0434 



0000 

6B13 

00 C40001C6 

00 F50001C0 

F011 

D011 

00 67000002 

080D 

00 D7000437 

73FF 

70FB 

COOA 

FOOA 

4820 

70EF 

C006 

00 67000000 

00 4C80041E 



0436 

0436 

0437 

0438 

0439 



043A 
043 B 00 
043 00 
04 3F 00 
0441 
0443 
0444 
0446 
0447 00 
0*49 00 
044B 00 
044D 00 
044F 00 
0451 00 



00 


00 




DATE 
EC NO. 



0000 
0700 
0000 
0000 
0000 



0000 

6E0004E1 

6D0004DF 

0C0001C2 

C40001CB 

1802 

4C0404CE 

1010 

0400 04F 5 

0400 04F6 

D40004F4 

040004F8 

D40004F7 

6680 04F1 



01MAY66 
415120A 



RWD03 BSC 

* 

* 

*WD04 LD 
STO 
BS1 
DC 
DC 
MDX 
MDX 

*WD05 BSC 

* 

* 

BSS 
RWDIO OC 

DC 



I RHD 



DSW 

SNSV 

PRINT 

/E008 

/0003 

RW005 

RWD01 

WRT05 



EXIT 

DRIVE IS NOT READY 

GET SENSE HO 

SAVE 

PRINT-NOT REAOY 

ERROR 8 

FORM 3 

CONTINUE 

LOOP ON ERROR 

TERMINATE 



SX 



SRC 



CONSTANTS 





/0404 





REWIND IOCC 



♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ROUTINE TO SENSE DRIVE 



♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



SNOSW OC 
STX 

SNDS1 LD 
EOR 
EOR 
STO 
LOX 

SN0S2 XIO 
STO 
MDX 
MDX 
LD 
EOR 
BSC 
MDX 
LD 



SN0S3 LDX L3 



3 SNDS3*1 
L EDIT 
LI MOD 

SNS 

SN3+1 
L3 2 

SNS 
L3 SNSV-1 
3 -1 

SNDS2 

SNSV 

SNSV+l 

Z 

SN0S1 

SNSV 



BSC I SNDSW 



SAVE IX 3 
GET AREA CODE 
SET MODIFIER 
SET SENSE FNC 
SAVE 

ISSUE SENSE 

SAVE 

DECR IX 

LOOP 

GET SECOND 

COMPARE WITH FIRST 

IS OR FULLY SEL 

NO 

GET SENSE WD 

RESTORE IX 3 

EXIT 



SE 



SX 



CONSTANTS 



SNS 



BSS 
DC 
DC 
SNSV OC 

DC 





/0700 









SENSE IXC 
TEMP STORAGE 



♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



COMMON PRINT ROUTINE 



♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



STX 


L2 


FRMC8+1 


SAVE IX 2 


STX 


LI 


FRMC7+1 


SAVE IX 1 


XIO 


L 


4DBSW 


READ DATA SWS 


LO 


L 


SWO 


GET DATA SWS 


SRA 




2 




BSC 


L 


FRMC4.E 


BRANCH = BYPASS 


SLA 




16 


CLEAR MSG WDS 


STO 


L 


MSG2 




STO 


L 


MSG3 




STO 


L 


MSG1 




STO 


L 


MSG 




STO 


L 


MSG4 




LDX 


12 


RIO 


IX 2 = RTN NO 


04M0V66 








415233 









SE 



( , 
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8BD08150 

8B008160 

8B008170 

88D08180 

88D08190 

8BD08200 

88D08210 

8BD08220 

8B008230 

8BD08240 

8BD08250 

8BD08260 

8B008270 

8BD08280 

8B008290 

8BD08300 

8BD08310 

8BD08320 

8BD08330 

8BD08340 

8BD08350 

8BD08360 

8BD08370 

8BD08380 

8BD08390 

8BD08400 

8BD08410 

8BD08420 

8B008430 

8BD08440 

8B008450 

8B008460 

8BD08470 

8BD08480 

8BD08490 

8BD08500 

8BD08510 

8BD08520 

8BD08530 

8B008540 

8BD08550 

8BD08560 

8BD08570 

8B008580 

8BD08 , ;90 

8BD08600 

8B008610 

8BD08620 

8BD08630 

8BD08640 

8BD08650 

8BD08660 

8BD08670 

8BD08680 

8BD08690 

8BD08700 

8BD08710 

8BD08720 

SBD08730 

8BD08740 

88D08750 

8BD08760 

8BD08770 

8<?D08780 

8BD08790 

8BD08800 

8BD08810 

8BD08820 
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0453 00 
0455 00 
045 7 00 

0459 
045 A 00 

045 C 
045D 
045E 00 

0460 00 
0462 00 
0464 00 
0466 00 
0468 00 
046A 00 
046C 

046 E 
046F 
0470 
0471 
0472 
0473 
0474 
0475 
04 76 00 

0478 

0479 00 
047B 
047C 
047D 
047F 
0480 
0481 



00 























00 









C6000103 

040004F2 

6680043A 

C200 

D40004F0 

C201 

D003 

6D0004F3 

66000000 

C6000487 

D4000616 

94000684 

D40004AE 

C60004 8C 

D40004B0 

C010 

D042 

COFO 

4810 

700A 

1001 

1801 

D001 

66000000 

C008 

D40004B0 

C004 

D035 

4E800482 

04EE 

04F2 

0005 



0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
048 A 
048B 
048C 
048D 
048E 
048F 
0490 



0000 
0491 
049 E 
049F 
04A3 
0000 
001A 
OOOE 
0011 
0011 
0000 
0009 
0005 
0006 
0006 



0491 
0493 
0494 
0496 
049 7 
0499 
049A 
049C 
049E 



00 C40006E2 

D060 

00 C 7000941 

D05E 

00 C4000685 

D05C 

00 C4000686 

00 D40004F7 

7007 



049F 00 C4000438 
04A1 D052 
04A2 7003 



DATE 
EC NO. 



01MAY66 
415120A 



PR1 



PR04 



PR05 
LOSXO 
L0GX1 
L0GX2 

• 

FORM 



FRWC 



FRST 



LD 

STO 

LDX 

LO 

STO 

LD 

STO 

STX 

LPX 

LD 

STO 

S 

STO 
LD 

STO 

LD 

STO 

LD 

BSC 

MDX 

SLA 

SRA 

STO 

LDX 

LD 

STO 

LD 

STO 

BSC 

DC 

OC 

DC 



DC 

OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



FD1M1 LD 
STO 
LD 
STO 
LD 
STO 
LD 
STO 

F0RM2 MDX 

* 

F0RM3 LD 
STO 

MDX 

* 
* 



04NJ0V66 
415233 



L2 CMRTT 

L RAO 

12 PRINT 
2 

L MID 
2 1 
PRU1 

LI UNIT 

L2 

L2 FRWC 

L PPWOC 

L ONE 

L STWC+I 

L2 FRST 

L STWC+3 
LOGXO 
FRMC2*1 
PR1 + 1 

PR05 

1 

1 

PR04+ 1 
L2 

L0GX2 
L STWC+3 

L0GX1 

FRMC2+1 
12 FORM 

PID-1 

UNIT-l 

5 



GET RTN AORS 

SAVE 

IX 2 = ADRS OF CALL 

GET MSG ID 

SAVE 

GET FORM NO 

SAVE OR NO 

IX 2 = FORM NO 

GET 1443 WD CT 

SET 

SUB 1 

SAVE 

GET MSG WD CT 

SAVE 

RESTORE RTN 

GET FORM NO 

IS IT NOT LINE 

NO 

CLEAR BIT 

SAVE 

IX 2 = FORM NO 

SET FOR NOT LINE 



GO TO rORM 
LINE CONSTANT 
N01 LINE CONSTANT 
NOT LINE WO CT 



FORM ADDRESSES 





FORMt 

FORMi 

F0RM3 

F0RM4 



26 

14 

17 

17 



9 

5 

6 

6 



L PPPAT 

MSG1 
L3 I0AA+8 

MSG2 
L WDCT 

MSG3 
L MSG4T 
L MSG4 

FORMC 



SNSV 
MSG1 

FORMC 



WD CT FORM 1 

2 
3 

4 

MSG LNGTH FORM 1 
2 

3 
4 



GET EXPECTED DATA 

SAVE 

GET DATA RECEIVED 

SAVE 

GET WD NO IN ERROR 

SAVE 

GET TRK IN ERROR 

SET 

GO TO COMMON RTN 



GET SENSE WORO 

SAVE 

GO TO COMMON RTN 



PART NO. 2183276 
'AGE 7A 



8BD08830 

8BD08840 

8BD08850 

8BD08860 

8BD08870 

8BD08880 

8BD08890 

8BD08900 

8BD08910 

8BD08920 

8BD08930 

8B008940 

8BD08950 

8BD08960 

8BD08970 

8BD08980 

8BD08990 

88009000 

8BD09010 

8BD09020 

8BD09030 

8BD09040 

8BD09050 

88D09060 

8BD09070 

8BD09080 

8BD09090 

8BD09100 

8BD09110 

8BD09120 

8BD09130 

8BD09140 

8B009150 

8B009160 

8BD09170 

8BD09180 

8B009190 

8BD09200 

8BD09210 

8BD09220 

8BD09230 

8BD09240 

8BD09250 

8BD09260 

8BD09270 

8BD09280 

8BD09290 

8BD09300 

8BD09310 

8BD09320 

8BD09330 

8BD09340 

8BD0935O 

8B009360 

8B009370 

8BD09380 

8B009390 

8BD09400 

8BD09410 

8BD09420 

8BD09430 

8B009440 

8BD09450 

8BD09460 

8BD09470 

8B009480 

8BD09490 

8BD09500 
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PART NO. 2183276 
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04A3 00 C4000328 
04A5 D04E 


F0RM4 LO 
STO 

• 


L 


WRERR 
MSGl 


GET NO OF RETRYS 
SAVE 


8B 0095 10 
8BD09520 










8 B 0095 30 




• 

• 

FORMC LCX 
SLA 

FRMC1 STO 
MOX 
MOX 

• 

STHC LOX 




COMMON ROUTINE 


8BD09540 


04 A 6 00 6600001 A 
04A8 1010 
04A9 OO D60004F8 
04AB 72FF 
04AC 70FC 


L2 

L2 
2 


26 
16 

MSGO-1 
-1 

FRMC1 


IX 2 = LNGTH MSG 
CLEAR MSG AREA 


8B0O955O 
8B009560 
8BD09570 
8BD09530 
8B009590 
8BD09600 


04AD 00 65000000 


LI 





SET IXIN5 


8B009610 
8B009620 
8B009630 
8BD09640 
8BD09650 


04AF 00 660000CO 


LOX 


L2 







04B1 00 C60004EE 


FRMC2 LO 


L2 


PIO-1 


GET A WORD 


04B3 00 D40005D6 


STO 


L 


HEX WO 


SET IN CONV RTN 


04B5 00 440005B4 


3SI 


L 


HEXCV 


CONVERT TO HEX SRC 


8BD09660 


04 B 7 00 CC0005DC 


LOD 


L 


HEXCD 


GET CONVERTED WO 


8BD09670 


04 B9 00 D50004F8 
04BB 1800 
04BC 00 050004F9 
04BE 71FD 
04BF 1000 
04C0 72FF 
04C1 70EF 


STO 
RTE 
STO 

MOX 
NOP 

MOX 
MDX 
• 

XIO 


LI 

LI 

1 

2 


MSGO-1 
16 

MSGO 
-3 

-I 

FRMC2 


SET IN MSG 
MOVE TO A 
SET IN MSG 
OECR IX 1 

DECR IX 2 
LOOP 


8BD09680 
8BD09690 
8BD09700 
BB 0097 10 
8BD09720 
8B009730 
8B009740 


04C2 00 OC0001C2 


L 


RDBSW 


READ DATA SWS 


8BD09750 
8BD09760 


04C4 00 C40001CB 
04C6 1009 
04C7 4828 


LO 

SLA 

BSC 


L 


SWO 
9 
♦ Z 


GET SWS 

IS 1443 TO BE USED 


8B009770 
8BD09780 
8B 0097 90 


04C8 7003 
04C9 00 44000514 
04CB 7002 


MDX 
BSI 

MOX 


L 


FRMC3 

LOGC 

FRMC4 


YES 

GO TO TYPEWRITER SRC 


88D09800 
8B009810 
8B009820 
8BD09830 


04CC 00 440005EE 


FRMC3 BSI 


L 


PR43 


GO TO 1443 SRC 


04CE 00 0C0001C2 


FRMC4 XIO 


L 


RDBSW 


READ DATA SWS 


8BD09840 


O4D0 00 C40001CB 

0402 1801 

0403 4804 


LO 

SRA 

BSC 


L 


SWO 
1 

E 


GET SWS 

IS HALT ON ERROR ON 


BBD09850 
8B009860 
8BD09870 


04D4 700F 


MOX 




FRMC6 


YES 


8BD09880 


0405 00 OC0001C2 


FRMC5 XIO 


L 


ROBSW 


READ DATA SWS 


8BD09890 
8BD09900 


04D7 00 C40001CB 
0409 1803 
040A 4804 


LD 

SRA 

BSC 


L 


SWO 
3 

E 


GET SWS 

IS LOOP ON ERROR ON 


8BD09910 
8BD09920 
8B009930 


040B 700F 
040C 00 740204?A 


MOX 
MOX 


L 


FRMC9 
PRINT ,2 


YES 

SET RETURN TO CONT 


8BD09940 
8BD09950 


04DE 00 65000000 


FRMC7 LOX 


LI 





RESTORE IX 1 


8BD09960 


O4E0 00 66000000 


F.RMC8 LOX 


L2 





RESTORE IX ? 


8BD09970 


04E2 OO 4C80043A 


BSC 

• 


I 


PRINT 


EXIT SX 


8BD09980 
8B009990 




* 




HALT 


ON ERROR SW IS ON 


8BD10000 


04 E 4 COOB 


* 

FRMC6 LD 




MID 


GET MSG ID 


8B010010 
8BD10020 


04E5 180C 
04E6 F007 
04E7 4820 


SRA 
EOR 
BSC 




12 

ERRR 

Z 


IS THIS AN ERROR 


8B010030 
8B010040 
8BD10050 


04E8 70EC 


MDX 




FRMC5 


NO 


8BD10060 


04E9 300B 


HAITB DC 




/300B 


ERROR WAIT 


8BD10070 


04EA 70EA 


MDX 

* 




FRMC5 




8BD10080 
8BD 10090 




* 




LOOP 


ON ERROR SW IS ON 


8BD10100 


04EB 00 7403043A 


FRMC9 MDX 


L 


PR I NT, 3 


SET RETURN TO LOOP 


8BD10110 
8BD10120 


04E0 70F0 


MDX 

* 




FRMC7 




8BD10130 
8BD10140 




* 




CONSTANTS 


8BD10150 


04EE OOOE 


* 

ER*R DC 




/OOOE 


ERROR CK 


8B010160 
8BD10170 


04EF BOOO 


PID DC 




/BOOO 


PROGRAM ID 


8BD10180 


OATE„ 01MAY66 
EC NO. 415120A 


04N0V66 
415233 








PROG 10 
PAGE 



o 



o 



o 
o 

1 ) 



08BD-0 
8 



4 * 



1 % 



4 > 

\ 



4 * 
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4 > 



4 * 
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04F0 


OOOO 


MID 


OC 







MESSAGE 10 


8BD10190 




04F1 


oooo 


RID 


DC 







ROUTINE NUMBER 


8BD10200 




04F2 


oooo 


RAO 


DC 







ROUTINE AOORESS 


88010210 




04F3 


oooo 


UNIT 


DC 







UNIT NUMBER 


8B010220 




04F4 


oooo 


MSGl 


DC 







M0DIFIER1 


8B010230 




04F5 


oooo 


NSG2 


DC 







2 


8BD10240 




04F6 


oooo 


MSG3 


DC 







3 


8BD10250 




04F7 


oooo 


MSG4 

* 
* 


OC 







4 


8B010260 
8BD10270 
8BD10280 








• 






output mis mm 


8B010290 








• 










8B010300 




04F8 


oooo 


MSG 


DC 







WD CT OR CAR RET 


8BD10310 




04F9 


oooo 


MSGO 


OC 







OUTPUT MSG AREA 


8B010320 




04FA 


0019 




BSS 




25 




8B010330 




0513 


FFFF 


TEUM 


OC 




/FFFF 


TERMINATOR 


8B010340 








♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B010350 








• 










8B010360 








* 






ROUTINE TO CONVERT PRINTER 


8BD10370 








• 






PACKED CODE TO PACKED TVPF 


SB010380 








* 










8BD10390 








♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8BD10400 




0514 


oooo 


L03C 


DC 







SE 


88010410 




0515 


1010 




SLA 




16 




8B010420 




0516 


0039 




STO 




LOXOO 


CLEAR HALF WO SW 


88010430 




0517 


C06B 




LD 




PRSP 


SET CARRIAGE RETURN 


8B010440 




0518 00 
051A 


0400 04F8 
692E 




STO 
STX 


L 
1 


MSG 
L0GC7+1 


SAVE IX 1 


8B010450 
8BD10460 




051B 


6A2F 




STX 


2 


L0GC8+1 


SAVE IX 2 


8BD10470 




051C 


6B30 




STX 


3 


L0GC9»1 


SAVE IX 3 


8BD10480 




0510 00 


670004F9 




LDX 


L3 


MSGO 


IX 3 = AORS OF MSG 


8B010490 




05 IF 


C300 


L0GC1 


LO 


3 





GET WO TO CONVERT 


8B010500 




0520 


0030 




STO 




LOX02 


SAVE 


8B010510 




0521 00 
0523 


F4000513 
4818 




EOR 
BSC 


L 


TERN 


IS IT A TERM 


8BD10520 
88010530 




0524 


7021 




MDX 




LOGCO 


YES 


8BD10540 




0525 


C02B 


L03C2 


LO 




LOX02 


GET WO 


8BD10550 




0526 


180C 




SRA 




12 


SAVE ZONE 


8BD10560 




0527 


D001 




STO 




L0GC3*l 




8BD10570 




052 8 00 


65000000 


L03C3 


LDX 


LI 





IX I = ZONE 


8B010580 




052A 00 


C5000553 




LO 


LI 


L0X04 


GET AORS OF ZONE 


8B010590 




052C 


D007 




STO 




L0GC5+1 


SAVE 


8B010600 




052D 


C023 




LD 




LOX02 


GET WD TO CONVERT 


8B010610 




052E 
052F 
0530 


1004 
180C 
D001 




SLA 
SRA 
STO 




4 

12 

L0GC4*1 


SAVE POSITION 


8BD10620 
8B010630 
BB 01 0640 




0531 00 


66000000 


L0SC4 


LDX 


L2 





IX 2 = POSITION 


8BD10650 




0533 00 


C6000000 


L0GC5 


LD 


L2 





GET TYPEWRITER CODE 


8BD10660 




0535 00 


74000550 




MDX 


L 


LOXOO ,0 


IS THIS FIRST HALF 


8B010670 




0537 


7007 




MDX 




L0GC6 


NO 


8BD10680 




0538 


0019 




STO 




L0X03 


YES 


8BD10690 




0539 00 


74010550 




MDX 


L 


LOXOOfl 


SET TO SECOND HALF 


8 BD 10700 




053B 


C015 




LO 




LOX02 


GET WO TO CONVERT 


8B01071U 




053C 


1008 




SLA 




e 


SET TO SECOND HALF 


8BD10720 




053D 


0013 




STO 




L0X02 


SAVE 


8B010730 




053E 


70E6 


* 


MDX 




LOGC 2 


GO CONVERT 


8BD10740 
8BD10750 








* 






SECOND HALF WORD 


8B010760 




053F 


1808 


L0SC6 


SPA 




8 


MOVE TO SECONO HALF 


8B010770 
8B010780 




0540 


F011 




EOR 




LOX03 


COMBINE WITH FIRST 


3B010790 




0541 


0300 


LOGCB 


STO 


3 





SET IN MSG 


8BD10800 




0542 

0543 


1010 
OOOC 




SLA 
STO 




16 

LOXOO 


SET TO FIRST HALF 


8BD10810 
8BD10820 




0544 


7301 




MDX 


3 


1 


IX 3 = NEXT WD 


8B010830 




0545 


70D9 


• 
* 


MDX 




L0GC1 

FOUND 


CONVERT NEXT WO 
A TERMINATOR 


8B010840 
8B010850 
3BD10860 




DATE 
EC NO. 


01MAY66 
415120A 


04NOV66 
415233 
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0546 
0548 
054A 
054C 
054E 


00 
00 
00 
00 
00 


4C000584 
65000000 
66000000 
67000000 
4C 800514 


* 

* L0G6O rase 
L03CT tOX 
L0GC8' LOX 

" L3GC9 tffX- 
BSC" 


L 

LI 

L2 

L3 

I 


LOGOO 







LOGC 


GO RRI NT- 
RE STORE m i 
RESTORE, tx 2 
RES1i@R6.-Jim 3 
EXIT •' 








• 




CONSTANTS 


0550 
0551 






0000 
0000 


LOXOO 0»C 
L0X02 OC 








HALF.KORO SW 
TEMP STORAGE FOR 


0552 





0000 


* 

L0XO3 DC 







W0R8T0 CONVERT 
TEMP_ STORAGE FOR 


0553 





0559 


* 

LOX 04*' DC 




PROO 


TYPEWRITER COM 
ACR5 OF 2rNE 


0554 
0555 
0556 







0562 
0560 
0579 


DC 
DC 
DC 




PR01-2 
PR02 
PR 03— 1 


ADRS OF ZONE 1 
ADRS OF ZONE 2 
ADRS BE ZONE 3 


0557 
0558 






C02B 
70E8 


LOGtA 'vb 
MDX 




PRSP 
L06CB 


GET CARTRIDGE' REH 



SX 



0559 


2100 


055A 


FCOO 


055B 


D800 


055C 


OCOO 


055D 


FOOO 


055 E 


F400 


055 F 


DOOO , 


0560 


0400 


0561 


E400 


0562 


EOOO 


0563 


C400 


0564 


9A00 


0565 


9E00 „ 


0566 


B200 


0567 


B600 - 


0568 


9200 


0569 


9600 


056A 


A600 


056 B 


A200 


056C 


2100~ 


0560 


beoo y 


056 E 


7E00" 


056F 


5A00T 
5E0ch' 


0570 


0571 


720tt; 


0572 


760tfi 


0573 

0574 




0575 


66013, 


05 76 


620O;. 


0577 


^ofr*: 


05 78 


40<jtf 


0579 


D6<ra\ 


05 7 A 


3E(fo; 


057B 


>4C 


05 7C 


if-tfqi 


05 70 
05 7E 


an; 


05 7F 


i m» 


0580 


16^ . 


0581 


2600 


OATE 

EC NO. 


ttifitt* 



PRIHWER CODE TO TYPtE-WKUER; 
CODE! CONVERSION- TA&H""v_ 



PRd'fi' DC 


/21'OD 


BLANK 


DC " 


/FCOO 


1 


DC " 


/DSOO 


2 


DC 


/oem 


3 * 


DC 


/F0O&- 


4 


DC 


/F4»» 


5 


DC 


/DG©0 


6 . 


DC 


/D40O 


7 


DC 


/E490 


8 


DC 


/EOOO 


9 


DC 


/C406 





PR01 DC 


/9A06 


S 


DC 


/9E&0 


T 


DC 


/B200 


U 


DC 


/B600 


V 


DC 


/9200 


w 


DC 


/9600 


X 


DC 


/A600 


Y 


DC- 


/A200 


Z 


DC ' 


/2100 


BLANK 


PR02 DC 


/BEO© 


- 


DC 


/7E0O 


J 


DC" 


/5AOO 


K 


OC 


/5-EOO 


L 


DC 


/7200 


M 


DC 


/7-600 


N "■ 


DC 


/57O0 


> 


DC" 


/5600 


P 


DC" 


/6600 





DC'- 


/62O0 


R 


DC 


/4200 




DC 


/4000 


* s 


DC ' 


/D60© 


* " 


PR33 DC 


/3F0O 


A 


DC" 


/1A0O 


B ' 


DC"' 


/lE0f> 


C 


DC' 


/3200" 


D 


DC 


/36O0 


E 


DC 


/I 200 


F 


DC 


/I600 


G 


DC 


/2600 


H ' 



itm¥ 



8BD1O870 

8BDIO8B0 

8BDIO890 

8BD10900 

8BD10910 

8601^92^, 

8BDIG,93© 

8BD10940 

8B010950 

880109,60 

8BD10970 

8BD10980 

8BD10990 

8BD11000 

8B011010 

8BD11B20 

88 Dl 1030 

8BD11040 

8BD11050 , 

8BD11060 

8BDU07P 

8BD110B0 

SBDMOaO. 

8B Dl^ifOfr- 

8BD111 lO 

8BQA-H2p 

880*41,30," 

8BQ-M1-4© 

SBQfel-fcSJq 

8BD111.6© 

8B0.fcH,7.Q 

8BD.ll 180 

8BD 11190 

8BDi,1200 

8BD11210 

8BD11220 

8BD11230 

88811240 

8BD11250 

8BD11260 

8BQH270 

88D11280 

8BD 11290 

8BD11300 

8B011310 

8BD11320 

88011330 

8 BD 11340 

8801 1350 

8B011360 

8BD11370 

8B01,i38O- 

8Bfti,J39ft 

88©WAftO 

8B€H141^ 

8801-1-4-2O. , 

8804143^ 

88 Dl 1440 

e&od-MStfr 

8801*4-60 
9ftO*fc4tOf , 
9BOt I-4-ftO r 
» 30,11*490! 
8901150O 
860115,10 
6B0.M5,2© 
a B0M53O,, 
8801 1540, 



PRGG; 10; 



0582 

0583 



2200 
8121 



0584 082B 

0585 180A 

0586 4-804 

0587 300C 

0588 00 0C00060C 
05 8 A 00 0C00060E 
058C 1010 
058D 0025 
058E 6300 

058F 00 C70004F8 

0591 ©920 

0592 00 F4000513 
0594 06 4C 18 05 A 8 



0596 0817 

0597 0818 

0598 180B 

0599 4804 
059A 70FC 



059B C017 
059C 4804 
0590 7006 



059E C013 
059F 1008 
05A0 D011 
05A1 00 740105B3 
05A3 70F2 



05A4 7301 
05A5 00' 746105B3 
05A7 70ET 



05A8 00 0C000610 
05AA 00 OCOOOM^ 
05AC 00 4C0O09W 



08BD-0 
9-, 



05AE 
05AE 
0$AF 
O5B0 
05B1 



DATE 
EC NO. 



0000 
0$B2 
0-TO2 

oooo 

0F03 



OC /2200 I 
P «SP DC /8121 CARRIAGE RETURN 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXJ<XXXXXXXXXXXXXXX 

* 
♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



TYPEWRITER ROUTINE 



01MAY66 
415120A 



L3S00-XIQ 
S-RA 
BSC 

WAITC DC 
X10 
XIO 
SLA 
STO 
LOX 

• 

LOGOl LO 
STO 

• 

EOR 
BSC 

XIOMR XIO 

* 

XIOfSN XIO 

* 

SRA 
BSC 
MDX 

* 

LO 

BSC 

MDX 

* 

* 

* 

LD 

SLA 

STO 

MDX 

MDX 

* 

LOS03 MDX 

MD1C 
MD»X 

* 

LOG02 XIO 
XI<0 
BSC 

* 
* 
* 

BSS 
WRI TE DC 

'DC 
SENSE DC 

'DC 



04NOV66 
415233 



SENSE 
10 

E 

/300C 
MASKO 
MAStl 
16 

WRDSW 
3 



L3 MSG 

I OAR A 



TERM 
L0G02.+- 



SENSE FOR REAOY 

IS TYPEWRITER READY 

NOT REAOY 
MASK ALL LVLS 

CLEAR HALF WD SW 



GET PRINT WO 

SET 1*1 OUTPUT AREA 

CK FOR TERMINATOR 
EXIT 



WRITE 
SENSE 

11 

E 
XIOSN 



OUTPUT A CHARACTER 

WRITE CHARACTER 
CHECK BUSY 



IS TYPEWRITER BUSY 
BUSY 



CHECK FOR 1ST 1/2 WORD 

WRDSW GET 1/2 WORD SWITCH 

E 

LOG03 GO SETUP FOR NEXT VO 



SET UP FOR 2ND 1/2 WORO 



IOARA 

8 

IOARA 

WROSW^l 

XIOMR 



GET WORD IN 10 AREA 
POSITION 2ND 1/2 WD 

BUMP WORD SWITCH 
GO..WJUTE 2ND 1/2 WD 



SET UP FOR NEXT WORD 



3 1 

L WRDSW, 1 
LOGOl 



NEXT WORD INOEX 

BUMrP^QRO jSW 

GO G€T MEItT WORD 



UNMK3 
UNMK4 
LOeCT 





IOARA 

/09O2 

/OOOO 

/0FO3 



UNMASK ALL LVLS 
EXIT 
CONSTANTS 

WRITE IOCC 
SENSE IOCC 



SX 



8BD11550 

8B011560 

8BDlt i 570 l 

SBDllSffa 1 " 

SBDlfsW 

SBOfflgW--' 

SBDfftte-^ 

SBDl'lrWd * ' 

SBDmtfcf'" * 

8BDtf^40 fc/ 

SBDifA'id* * 

8BDI166Q 

8BDH6TQ 

8BD116«6 

8BD 11690 

SBDlir^ 

8BDii7iO 

8BDil?4^ 
88011^6 ' - 
8BDJ4-fl,A* * 
8BDUtt6* 

BBDimb 

BBOIJibS;^ 
BBOllfW 4 

BBO'll'i^W^' 
8BD1$8. 

BBDrfhw'- 5 

SBOltWd'" 
8B011»W 
8BD1190f " 
8BQil^l-|'' ! 

8B0(lt9W* , 

SBDlWfMh 5 - 

SBOitfffl 

BBDlllW^ 
8BDlX?f6 ' 

BBoigoio;' 

8BOl26fO: ( 

8BD^20^d u 
88012^640,; 
8BD1205O; 
8BD120W! 

8BDl20B^ 6f , 
8BM2P90'': 
860.1210^: , 

8Baj^iitP 

8Bt)^§tf 
BBtiU&p. 
8B0X|>1^0 
SBDl^liO*' 
8Bti^,2170 

8BDt^ie!a 

8BPI2J190 
83pi2,2pO' 
8B012219 
8801222^0 
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05B2 

05B3 


0000 
0000 


IOARA DC 
WROSH DC 






OUTPUT AREA 
HALF WORD SW 


8BD12230 
88012240 






♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B012250 












88012260 








HEXADECIMAL CONVERSION 


88012270 


05B4 0000 
05B5 00 6E0005D1 
0587 00 6F000503 
05 89 6204 
05BA COIB 
05BB 1890 
05BC 1010 
05B0 1084 
05BE DOOl 
05BF 00 67000000 


♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

HEXCV DC SE 

STX L2 HEXC2+1 SAVE IX 2 

STX 13 HEXC3+1 SAVE IX 3 

LOX 2 4 CONVERSION INDEX 

10 HEXWD GET WORD TO CONVERT 

SRT 16 SET IN 

SLA 16 CLEAR A 
HEXC1 SLT 4 GET CHARACTER 

STO HEXC1+3 

LDX L3 SET CODE TABLE INOEX 


8BD12280 
8BD12290 
8BD12300 
8B012310 
8B012320 
8BD12330 
88012340 
8BD12350 
8B012360 
88012370 
8B012380 
88012390 


05C1 OC 
05C3 OC 
05C5 


C70005DE 
D60005D6 
1010 


LD 

STO 

SLA 

• 

MDX 
MDX 


L3 CODEH 
L2 HEXOO-1 
16 


GET CHARACTER 
SAVE 


8B012400 
88012410 
88012420 
8B012430 


05C6 
05C7 


72FF 
70F5 


2 -1 
HEXCl 


CHECK IF DONE 


88012440 
8BD12450 
8B012460 


05C8 
05C9 
05CA 
05CB 
05CC 
05CD 
05CE 
05CF 


C011 
1008 
E80E 
0010 

COOB 
1008 
E808 
DOOO 


LD 
SLA 

OR 
STO 
LD 
SLA 

OR 
STO 


HEX00+3 

8 

HEX00+2 

HEXCO 

HEXOO+1 

8 

HEXOO 

HEXCD+1 


PACK CODED WORDS 


8BD12470 
8BD12480 
8B012490 
8B012500 
8BD12510 
8B012520 
88012530 
8BD12540 
8B012550 
8BD12560 
8BD12570 
8B012580 


0500 00 
0502 00 


66000000 
67000000 


HEXC2 LDX 
HEXC3 LDX 


L2 
L3 


RESTORE IX 2 
RESTORE IX 3 


0504 00 


4C800584 


BSC 

* 


I HEXCV 


RETURN TO USER SX 










8B012590 










CONSTANTS 


8BD12600 


0506 

0507 

0508 

0509 
05 DA 


0000 
0000 
0000 
0000 
0000 


HEXWD DC 

HEX 00 DC 

DC 

OC 

DC 









WORD TO CONVERT 

* 

» UNPACKED CODED 
* WORO 

* 


8BD12610 
8BD12620 
8B012630 
8BD12640 
8B012650 
88012660 


05 DC 


0000 


BSS 


E 




8BD12670 
8BD12680 


05 DC 
050D 


0000 
0000 


HEXCD DC 
DC 

* 






* PACKED CODED WORD 

* 


8BD12690 
8BD12700 
8B012710 
8B012720 






* 

» 

COOEH DC 
DC 
DC 
DC 
DC 
DC 
DC 


CONVERSION TABLE 


86D12730 


05DE 
050F 
05E0 
05E1 
05E2 
05E3 
05E4 


OOOA 
0001 
0002 
0003 
0004 
0005 
0006 


/OOOA 
/0001 
/0002 
/0003 
/0004 
/0005 
/0006 



1 
2 
3 
4 
5 
6 


88012740 
8B012750 
8BD12760 
8BD12770 
88012780 
88012790 
8BD12800 
a am 9oin 


oat a o 
05E6 
05E7 
05E8 
05E9 
05 E A 
05 EB 
05 EC 
05ED 


OO0 7 
0008 
0009 
0031 
0032 
0033 
0034 
0035 
0036 


DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 


/0007 
/0008 
/0009 
/0031 
/0032 
/0033 
/0034 
/0035 
/0036 


7 
8 
9 
A 
B 
C 
D 
E 
F 


88012820 
8BD12830 
8BD12840 
8BD12850 
8BD12860 
8BD12870 
8BD12880 
8BD12890 
8B012900 


OATE 


01MAY66 
415120A 


04SOV66 








EC NO. 


415233 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 CYCLIC REOUNOANCY CHECK FUNCTION TEST 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
PRINT ON 1443 PRINTER 



05EE 0000 

05EF C01A 

O5F0 001A 

05F1 C024 

05F2 00 040004F8 

05F4 0817 

05F5 0818 

05F6 0813 

05F7 4804 

05F8 3000 

05F9 081A 

05 FA 080F 

05FB 1002 

05FC 4810 

05F0 70FC 

05 FE COOC 

05FF 00 F4000684 

0601 0009 



0602 





0807 


0603 





1801 


0604 





4804 


0605 





70FC 


0606 





0809 


0607 





080A 



0608 00 4C8005EE 



060A 




0000 


060A 





3700 


060B 





0000 


060C 





FFFF 


0600 





0480 


060E 





FFFF 


060F 





0481 


0610 





0000 


0611 





0480 


0612 





0000 


0613 





0481 


0614 





04F8 


0615 





3500 


0616 





0017 



0617 0000 

0618 C009 

0619 00 F50001B8 
0618 0007 
061C 0805 

06 ID 1000 



DATE 
EC NO. 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



R43 



DC 

LD 

STO 

LD 

STO 

XIO 

XIO 



XIO 
BSC 

WAITD DC 
XIO 

* 

PR431 XIO 
SLA 
BSC 
MOX 

LO 

EOR 
STO 

* 

PR432 XIO 
SRA 
BSC 

MOX 

XIO 
XIO 





SNSPR 

SNSPR+1 

PRWDC 

MSG 

MASKO 

MASK1 

SNSPR 
E 

/300D 
WRPR 

SNSPR 
2 

PR43I 

SNSPR*1 

ONE 

SNSPR+1 

SNSPR 

1 

E 

PR432 

UNMK3 
UNMK4 



<=ET SENSE IOCC 
SET 

SET WO CT 

MASK ALL LEVFLS 



CK FOR PRINTER READY 

PRINTER IS NOT READY 
WRITE 

WAIT FOR NOT COMPLTE 

IS PRINTER COMPLETE 
NO 

GET IOCC 
SET BIT 15 
SAVE 

SENSE 

IS PRINTER BUSY 
YES 

UNMASK ALL LEVELS 



SE 



BSC I PR43 



BSS 
SNSPR DC 
DC 

MASKO OC 
OC 

MASKl DC 
DC 

UN«4K3 DC 
OC 

UNMK4 OC 
CC 

WRPR OC 

DC 

PRWDC DC 



EXIT 
CONSTANTS 



SX 





/3700 



/FFFF 
/0480 
/FFFF 
/0481 



/0480 

/0481 

MSG 

/3500 

23 



SENSE IOCC 
MASK IOCCS 

UNMASK IOCCS 

WRITE IOCC 
WORO COUNT 



♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



DESELECT DRIVE ROUTINE 



* 

♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

DSLT DC SE 

LD DSL GET MOO 

EOR LI TAPEO SET IOCC 

STO DSL + 1 SAVE 

XIO DSL SENSE DRIVE 

NOP 



04N0V66 
""23- 



01MAY66 _..._._ 
415120A 415233 

,# ' 



PART NO. 
PAGE 



8B012910 

8B012920 

8BD12930 

8B012940 

88012950 

8B012960 

8BD12970 

8B012980 

8B0 12990 

8B013000 

88013010 

88013020 

88013030 

8B013040 

8B013050 

8B013060 

88013070 

8BD13080 

8BD13Q90 

8BD13100 

8BD13110 

8BD13120 

8BD13130 

8BD13140 

8BD13150 

8B013160 

8B013170 

8B013180 

88013190 

8BD13200 

8B013210 

8BD13220 

8BD13230 

8BD13240 

8BD13250 

8BD13260 

8B013270 

8B013280 

8BD13290 

8BD13300 

8BD13310 

8BD13320 

8BD13330 

8BD13340 

8BD13350 

8BD13360 

8BD13370 

8BD13380 

8B013390 

88013400 

8B013410 

8BD13420 

8B01343O 

8B013440 

8BD13450 

8BD13460 

8BD13470 

nnni unn 

8B0 13490 
8B013500 
8B013510 
8BD13520 
8B013530 
8B013540 
88013550 
83D13560 
8BD13570 
8BD13580 
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2400 CYCLIC REDUNDANCY CHECK FUNCTION TEST 



PART NQ», 2183276- 4 
PAGE J - 11 - *'•*• 



u 




IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 CYCLIC REDUNDANCY CHECK FUNCTION TEST 



PART NO. 2183276 
PAGE 11A 



061E 1000 
061F 0802 
0620 00 4C800617 



0672 0000 

0622 0720 

0623 0000 



062 4 
0625 
0626 
062 7 00 

0629 00 
062 B 
062 D 
062E 00 

0630 
0631 
0632 
0633 00 
0635 00 
0637 00 
0639 
063A 00 









00 









6B07 

1010 

D05C 

6600FFF8 

4400028E 

67000000 

C055 

84000684 

DOS 2 

4804 

702 F 

C7000679 

F6000941 

D6000941 

6B07 

440002D4 



06 3 C 00 4400 03C 4 
063 E 00 440003C4 
0640 00 67000000 
0642 00 4400032C 
0644 00 440003C4 



0646 
064 8 
0649 
064 B 
06«»C 
064D 
064E 

064 F 
0651 

065 3 
0654 
0655 
0657 
0658 
0659 



065B 
065C 
065D 
065E 
065F 



00 C4000684 

D03C 

00 6F000686 

6B0E 

C03A 

D01F 

63F8 

00 C7000941 

00 F40002A3 

4820 

7011 

00 74010685 

7301 

70F6 

00 O7000000 



C027 
4804 
70CB 
7201 
70C9 



0660 00 4C0001EA 



0662 00 C7000679 
0664 1008 



DATE 
EC NO. 



01MAY66 
415120A 



DSL 



NOP 
XIO 
BSC I 



BSS 
DC 

DC 



DSL 
OSLT 



SENSE DEV-ICE 
EXIT 



CONSTANTS 





/0720 





SENSE 1006 



♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx- 

TESTING ROUTINES V THROUGH' 7 



CMRTO 
CMRT3 



♦xxxxxxxx 

CMRT STX 
SLA 
STO 
LOX 
BSI 
LDX 
LO 
A 

STO 
BSC 
MOX 
LO 
EOR 
STO 
STX 
BSI 



CM*T1 



BSI 
BSI 

:mrtf LDX 

BSI 
BSI 

* 

* 

• 

CMRT6 LD 
STO 
STX 
STX 
LD 
STO 
LOX 

CM*TC LD 
EOR 
BSC 
MDX 

CMRTD MOX 
MDX 
MOX 

CMRT8 LDX 

* 

* 

CMRTE LD 
BSC 
MDX 

MOX 

MDX 

CMRT5 BSC 

* 
* 

CMRT2 LD 
SLA 



04N0V66 
415233 - 



L 
L3 



XXXXXXXXXXXXXX 
3 CMRT3+1 

16 

OECTR 
L2 -8 

SP7F 



OECTR 
L ONE 

OECTR < 

E 

CMRT2 
L3 TRl-l 
L2 IOAA+8 
L2 IOAA+8 

3 CMRTF+1 
L WRT 



L 
L 
L3 

L 

L 



BSP 

8SP 



RD 

BSP 



XXXXXX*XXXXXjrXXX*C*XXX;XX 

SAVE I5T3 

ZERO A^iRtG 
5 CLEAR «C©m>EV«* CT» 

IX 2 =• NO- WOS 

GO SET im ARE* is SRC 

RESTOR* IX -»■ 
'GET OOVtvOEN 0T# *t 

add one 

' SAVE 
IS CTR EVEN 
NO 

GET BAO TfrACK CONST 
SET 



SAVE I-X 3 
GO WRITE 

GO BACKSPACE 
GO BACK-SPACE 
RESTORE IX 3 
GO READ 
GO BACKSPACE 



CHECK DATA 



L ONE 

WOCT 
L3 MSG4T 
3 CMRT8+1 

LNEO 

CMRT9 
3 -8 
L3 IOAA+B 
L P7F 

I 

CMRTB 
L WDCT.l 
3 1 

CMRTC 
L3 



GET 1 

SET AS WD CT 
SET TRK 
SAVE IX 3 
SET LINE 

IX 3 = NO WDS 
GET A DATA WO 

IS WD CORRECT 

NO 

I NCR WD CT 

DECR IX 3 

LOOP 

RESTORE IX 3 



CHECK FOR ROUTINE COMPLETE 

OECTR GET ODD EVEN CTR 

E IS IT EVEN 

CMRTO NO 

2 1 DECR IX 2 

CMRTO CONTINUE RTN 

L RETRN RTN EXIT 

000 EVEN CTR IS ODD 

L3 TRl-l GET BAO TR CONSTANT 

8 "OVE TO FIRST CHAR 



880135*8, , 

8BD136G0 .' 

SX 8B<0136fe%oj* . 

88D13620 -- 
8BD1363jsfl'.*^ ', 
8BD13640 -,, 
8BD136SS-? : ,t 
8BD13660 •„<, 
8BD136$p,>. '#-, 
880136«0 r , } , 
8BD136te tl . , t -~ 
«BD137M r ,,,-,, 
8BO137|0 ; ,- , 
8B0137|# t , 
8BD1373£ C , , 
8BD137*(9f>. s ,- 
8801375%- 3 . 
8801376(0- - 
8«0137*0- ' " 3 - 
880137^ "/,, 
?c 88013790 v 

380138%% «. ,. 

8BD13810 

880138*0,. 

8BD13830 

SB D 13840 

8B0138SO 

88D13860 

88013870 

SRC 8BD13880 

8BD13B90 

SRC 8BD13900 

SRC 8801391% 

8801392% 
SRC 88013940 
SRC 8BD13940 

88013*5% 

8BD13960 

8BD13970 

8BD13980 

8BD1399Q 

8B014000 

8BD14010 

8BD14020 

8BD14030 

8BD14040 

8BD14050 

8BD14060 

880 14070 

8BD14080 

8BD14090 

BBD14100 

8801411% 

8BD141,2% 

88014130 

8BD14140 

8BD14150 

83D14t60 

88D14170 

8B014180 

8BD14190 

8BD14200 

SB01421O 

8BD14220 

8BD14230 
8BD14240 

8BD14250 
8B01426O 



0665 70CF 



MDX 



CMRT1 



PROG ID 
PAGE 



08BD-0 
11 



t 



T 
t 
t 







* 
* 






OAT A 


NOT CORRECT 


0666 00 C40002A3 


CMRTB LO 


L 


P7F 


GET EXPECTED 


0668 00 D40006E2 




STO 


L 


PRPAT 


SAVE 


066A 00 4400043A 




BSI 


L 


PRINT 


GO PRINT 


066C 


E001 




DC 




/E001 , 


^ERRCI \* 


0660 


0001 


CMRT9 DC 




/0001 


~ FORM 1 


066E 


T001 




MDX 




CMRT7 


CONTINUE 


066F 


70D0 




MDX 




CMRTF 


LOOP ON ERROR 
SET NOT^-fcNE\0 ; 


0670 


C017 


CMRT7 


LD 




LNE1 


0671 


DOFB 




STO 




CMRT9 




0672 OQ 


OC0001C2 




XIO 


L 


ROBSW 


REAO DATA SWS * 


0674 00 


C40001CB 




LO 


L 


SWO 


GET SWS 


0676 


1007 




SLA 




7 




0677 


4810 




BSC 






IS PRINT ONLY 1 ON 


0o78 


70Dt 




MDX 




CMRTO 


NO 


0679 


70DF 


• 


MDX 




CMRT8 


YES 






* 
* 






CONSTANTS 


067A 


0040 


TR1 


DC 




/0040 


CHARACTER-TRACK 1 


067B 


0020 


TR2 


DC 




/0020 


2 
3 

4 


06 7C 


0010 


TR3 


DC 




/0010 


067D 


O008 


TR4 


DC 




/0008 


06 7E 


0004 


TR5 


DC 




/0004 


5 


067F 


0002 


TR6 


DC 




/0002 


6 


0680 


OO01 


TR7 


DC 




/0001 


7 


0681 


BCOF 


OSWEX 


DC 




/BCOF 


ERROR EXPECTED 


0682 

0683 


BF9F 
0000 


DSWCR 
OECTR 


DC 
DC 




/BF9F 



CORRECTED EXJ»6CT S €0 
OOD-EVEN CTR 


06 84 


0001 


ONE 


DC 




1 


CONSTANT 1 


0685 


0000 


WDCT 


DC 







WORD IN ERROR COUNT 


0686 


OOOO 


MSG4T 


OC 







TRACK IN ERROR STORE 


0687 


0001 


LNEO 


DC 




/0001 




0688 


8001 


LNE1 


DC 




/8001 








*XXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXX 






* 
• 






TESTING ROUTINE 8 






♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


0689 


6B08 


RTN8 


STX 


3 


RTN8B+1 


SAVE IX 3 


068A 


1010 




SLA 




16 


CLEAR ODD EVEN CTR 


068 B 00 


D4000683 




STO 


L 


OECTR 




068D 00 


6600FFF8 




LOX 


L2 


-8 


IX 2 = NUMBER WORDS 


06 8 F 00 


440002A5 


RTN8A 


BSI 


L 


SP8F 


GO SET I/O AREA 


0691 00 


67000000 


RTS8B 


LDX 


L3 





RESTORE IX 3 


0693 00 


C4000683 




LD 


L 


OECTR 


GET ODD/EVEN CTR 


0695 00 


840O0684 




A 


L 


ONE 


ADD 1 


0697 00 


04000683 




STO 


L 


OECTR 


SAVE 


0699 


4804 




BSC 




E 


IS CTR EVEN 


069A 


702E 




MDX 




RTN8M 


NO 


0696 


C044 




LD 




TRO 


GET BAD TR CONSTANT 


069C 00 


F 600094 I 


RTW8C 


EOR 


L2 


IOAA+8 


SET BAD CHARACTER 


069E 00 


D6000941 


£ 


STO 


L2 


IOAA+8 




OcAO 00 


440002D4 





BSI 


L 


WRT 


GO WRITE 


06 A 2 00 


440003C4 




BSI 


L 


BSP 


GO BACKSPACE 


06A4 00 


440003C4 


£ 


BSI 


L 


BSP 


GO BACKSPACE 


06A6 00 


4400032C 


RTN8D 


BSI 


L 


RD 


GO READ 


06A8 00 


440003C4 


* 
* 


BSI 


L 


BSP 

CHECK 


GO BACKSPACE 
DATA 


06AA 00 


C4000684 


RT«J8E 


LD 


L 


ONE 


GET 1 


DATE 


01MAY66 


04N0V66 








EC NO. 


415120* 


415233 











Cj42d« 
Dl*?ct, 

0!» 

1 J 



8BD14270 
8601428% 
8BD142' 
8B0143 
8B0143 
88D143 
SRC 88D143 

m\ti 

8BD143 

8BD143 

8BJ143 

88D143 

86014400.';"' ' 

8B0144ff" 

8BD144 

8BD1442 

8B0144J 

8BD144* 

88D144J 

8B0144J 

8BD1448 

880144^ 

88014500 

8B0145jp 

8BD 14520 

8BD14530 

8601454ft 

8BD 14550 

88D 14560 

8601457% 

8BD145B0 

8BD145?0 

88014600 

86014610 

88014620 

8BD14630 
X 8BD14640 

8BD14650 

8BD14660 

8B0146T0 
< 86014680 

8BD 14690 

8BD14700 

86D147I0 

8BD14720 
SRC 8BD14730 

8BD14740 

8BD14750 

8BD14760 

8BD14770 

88014780 

8BD147.0 

8B014800 

8B0148I0 

8BD14820 

8BD14830 
SRC 8BD14840 

3BD14850 
SRC 88D14860 
SRC 8BD14870 

8BD14880 
SRC 8SD14890 
SRC 8BD14900 

86014910 

8BD14920 

8BD14930 

380 14940 
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06AC 00 D4000685 


STO 


L 


WDCT 


SET AS MO CT 


8BD14950 




06AE 1010 


SLA 




16 


CLEAR A REG 


8B014960 




06AF 00 D4000686 


STO 


L 


MSG4T 


SAVE 


8BD14970 
8BD14980 




06B1 00 C4000687 


LD 


L 


LNEO 


SET LINE 




06B3 D01E 
06B4 6B08 


STO 
STX 


3 


RTN80 
RTN8J+1 


SAVE IX 3 


8BD14990 
8B015000 




06B5 63F8 


LOX 


3 


-8 


IX 3 = NUMBER WORDS 


8BD15010 




06B6 00 C 7000941 


RTM8H LD 


L3 


IOAA+8 


GET A DATA WD 


8BD15020 




06B8 F028 
06B9 4820 
06BA 7011 
06BB 00 74010685 


EOR 

BSC 

MDX 

RTM8F MDX 


L 


P8F 
Z 

RTN8N 
WDCT.l 


IS WD CORRECT 

NO 

INCR WD CT 


8BD15030 
8BD15040 
8BD15050 
8B015060 




06B0 7301 
06BE 70F7 


MDX 
MDX 


3 


1 

RTN8H 


DECR IX 3 
LOOP 


8B015070 
8B015080 




06 BF 00 67000000 


RTN8J LDX 

* 


L3 





RESTORE IX 3 


8BD15090 
8BD15100 






* 




CHECK FOR ROUTINE COMPLETE 


8BD15110 




06C1 00 C4000683 


* 

RTN8K LD 


L 


OECTR 


GET ODD EVEN CTR 


8BD15120 
8BD15130 




06C3 4804 
06C4 70CA 
06C5 7201 
06C6 70C8 


BSC 

MDX 
MDX 
MDX 


2 


E 

RTN8A 
1 
RTN8A 


IS IT EVEN 

NO 

DECR IX 2 

CONTINUE RTN 


8B015140 
8BD15150 
8BD15160 
8BD15170 




06C7 00 4C0001EA 


RTNBl BSC 

• 


L 


RETRN 


ROUTINE COMPLETE 


8BD15180 
8BD15190 






* 




ODD- 


EVEN CTR IS 000 


8B015200 




06C9 C016 


RTVJ8M LD 




TRO 


GET BAD TR CONSTANT 


8B015210 
8BD15220 




06CA 1008 


SLA 




8 


MOVE TO FIRST CHAR 


8BD15230 




06CB 70D0 


MOX 

* 




RTN8C 




8BD15240 
8B015250 






* 




DATA 


IS NOT CORRECT 


8BD15260 




06CC 00 C40006E1 


* 

<T\J8N LD 


L 


P8F 


GET PATTERN 


8BD15270 
8BD15280 




06CE 0013 


STO 




PRPAT 


SET FOR PRINT 


8BD15290 




06CF 00 440004 3A 


BSI 


L 


PRINT 


PRINT BAD DATA 


8BD15300 




06D1 E001 


r>c 




/E001 


ERROR 1 


8BD15310 




06D2 0001 


RTN 80 DC 




/0001 


FORM 1 


8BD15320 




0603 7001 


MDX 




RTN8P 


CONTINUE 


8BD15330 




0604 70D1 


MDX 




RTN8D 


LOOP ON ERROR 


8BD15340 




06D5 00 0C0001C2 


RTM8P XIO 


1. 


RDBSW 


READ DATA SWS 


8B015350 




06D7 00 C4000688 


LD 


L 


LNE1 


SET NOT LINE 


9B015360 




0609 D0F8 


STO 




RTN80 




8B015370 




060A 00 C40001CB 


LD 


L 


SWO 


GET SWS 


8BD15380 




06DC 1007 


SLA 




7 




8B015390 




06DD 4810 


BSC 




- 


PRINT ONLY FIRST 


8B015400 




060E 70DC 


MDX 




RTN8F 


NO 


8BD15410 




06DF 70DF 


MDX 

* 




RTN8J 


YES 


8B015420 
88015430 






* 




CONSTANTS 


8BD15440 






♦ 








8BD15450 




06E0 0080 


TRO OC 




/0080 


BAD TR CONSTANT 


3BD15460 




06E1 8F8F 


P8F DC 




/8F8F 


PATTERN 


8BD15470 




06E2 0000 


PRPAT DC 







PATTERN TO PRINT 


8B015480 






♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8BD15490 






* 








8BD15500 






* 




TESTING ROUTINE 9 


86D15510 






* 








8BD15520 






♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8BD15530 




06E3 6208 


RTN9 LDX 


2 


8 


IX 2 = NO TRACKS 


8BD15540 




06E4 6308 


RTN90 LOX 


3 


8 




8BD15550 




06E5 C068 


RTN9J LD 




P8F70 


GET PATTERN 


8BD15560 




06E6 00 07000938 


STO 


LJ 


IOAA-1 


SET IN I/O AREA 


8BD15570 




06E8 73FF 


MDX 


i 


-1 


DECR IX 3 


8BD15580 




06E9 70rB 


MDX 




RTN9J 




8B015590 




06EA 00 67000131 


LDX 


LI 


305 


IX 3 = 305 CHARACTER 


8BD15600 




06EC 1010 


SLA 




16 


CLEAR A REG 


8B015610 




06ED 00 07000940 


RTN9K STO 


L3 


IOAA+7 


SET IN I/O AREA 


8BD15620 




OATE 01MAY66 
EC NO. 415120A 


04NQV66 
415233 
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PAGE 



06EF 


73FF 




MDX 


3 


-1 


DECR IX 3 


8BD15630 


06F0 


70FC 




MOX 




RTN9K 


LOOP 


8BD15640 


06F1 


C050 




LO 




CRCSP 


GET 0005 


8BD15650 


06F2 00 


D4000942 




STO 


L 


IOAA+9 


SET AS CRC CHARACTER 


8BD15660 


06F4 00 


D4000944 




STO 


L 


IOAA+11 


SET AS LRC CHARACTER 


8B015670 


06F6 
06F7 00 


6308 

C 7000938 


RTN9A 


LDX 

LD 


3 
L3 


8 
IOA 


GET A DATA WO 


8BD15680 
8BD15690 


06F9 00 


F6000"'45 




EOR 


L2 


TRKA-1 


SET DEAD TRACK 


8BD15700 


06FB 00 


D7000938 




STO 


L3 


IOA 


STORE 


8B015710 


06FD 


73FF 




MDX 


3 


-1 


DECR 1X3 


8B015720 


06FE 


70F8 




MDX 




RTN9A 


LOOP 


8BD15730 


06FF 00 


C4000942 




LD 


L 


IOAA+9 


GET CRC CHARACTER 


8BD15740 


0701 00 


F600073D 




EOR 


L2 


CRCA- I 


SET OEAO TRACK 


8BD15750 


0703 00 


04000942 




STO 


L 


IOAA+9 


SET AS CRC CHARACTER 


8BD15760 


0705 00 


04000944 




STO 


L 


IOAA+11 


SET AS LRC CHARACTER 


8BD15770 


0707 00 


44000204 


* 


BSI 


L 


WRT 


GO WRITE SRC 


eBD15780 
8B015790 


0709 00 


440003C4 


* 


BSI 


L 


BSP 


GO BACKSPACE SRC 


8BD15800 
8BD15810 


070B 00 


440003C4 




BSI 


L 


BSP 


GO BACKSPACE SRC 


8B015820 


070D 00 


4400032C 


RTN9B 


BSI 


L 


RD 


GO READ SRC 


8B015830 
8B015B40 


070F 00 


440003C4 


* 


BSI 


L 


BSP 


GO BACKSPACE SRC 


8B015850 
8B015860 






• 






CHECK 


DATA 


8BD15870 


0711 


63F8 


* 


LOX 


3 


-8 


IX 3 - NUMBER WDS 


8BD15880 
8B015890 


0712 00 


C4000684 




LD 


L 


ONE 


SET WD CT x i 


8BD15900 


0714 00 


04000685 




STO 


L 


WOCT 




8BD15910 


0716 00 


C600074F 




LO 


L2 


TRKMS-1 


GET TRK IN ERROR 


8B015920 


0718 00 


04000686 




STO 


L 


MSG4T 


SAVE 


8BD15930 


071 A 00 


C4000687 




LO 


L 


LNEO 


SET LINE 


8BD15940 


071C 


D013 




STO 




RTN90 




8BD15950 
8BD15960 


071 D 00 


C7000941 


RTM9C 


LO 


L3 


IOAA+8 


GET A DATA WD 


071F 
0720 


F02E 
4820 




EOR 
BSC 




P8F70 
Z 


IS IT CORRECT 


8B015970 
8BD15980 


0721 


7008 




MDX 




RTN9F 


NO 


8BD15990 
8BD16000 


0722 00 


74010685 


RTN9D 


MDX 


L 


WOCT, 1 


INCR WD CT 


0724 


7301 




MOX 


3 


1 


OECR IX 3 


8BD16010 


072 5 


70F7 




MDX 




RTN9C 


LOOP 


8BD16020 


0726 


72FF 


RTN9E 


MDX 


2 


-1 


IS RTN COMPLETE 


8BD16030 


072 7 


70BC 




MDX 




RTN90 


NO 


8BD16040 
8BD16050 


0728 00 


4C0001EA 




BSC 


L 


RETRN 


YES 






* 










8BD16060 






* 






DATA 


IS INCORRECT 


8BD16070 


072 A 


C023 


♦ 

RTN9F 


LO 




P8F70 


GET PATTERN 


8BD16080 
8BD16090 


072B 00 


D40006E2 




STO 


L 


PRPAT 


SET FOR PRINT 


8BD16100 


072D 00 


4400043A 




BSI 


L 


PRINT 


PRINT BAD DATA 


8B016110 


072 F 


E001 




DC 




/E001 


ERROR 1 


8BD16120 


0730 


0001 


RTN90 


DC 




/0001 


FORM 1 


8BD16130 


0731 


7001 




MDX 




RTN9H 


CONTINUE 


8BD16140 


0732 


70DA 




MDX 




RTN9B 


LOOP ON ERROR 


8BD16150 


0733 00 


0C0001C2 


RTN9H 


XIO 


L 


RDBSW 


REAO DATA SWS 


8BD16160 


0735 00 


C4000688 




LD 


L 


LNE1 


SET NOT LINE 


8B016170 


0737 
073 8 00 
073A 
073B 


OOF 8 

C40001CB 
1007 
4810 




STO 
LD 
SLA 
TSC 


L 


RTN9Q 

swo 

7 


GET SWS 

PRINT ONLY FIRST 


8BD16180 
8BD16190 
8BD16200 
8BDI6210 


073C 


70E5 




MDX 




RTN9D 


NO 


8BD16220 
8BD16230 


073 D 


70E8 




MDX 




RTN9E 


YES 






♦ 










8BD16240 






♦ 






CONSTANTS 


8BD16250 


073 E 


0001 


CRCA 


DC 




/0001 


CRC CNST-TRK 7 


8BD16260 
8BD16270 


073 F 

0740 

0741 


0000 
0004 
0000 




OC 
DC 
DC 




/OOOO 
/0004 
/OOOO 


6 

5 
4 


8BD16280 
8B016290 
8BD16300 


DATE 
EC NO. 


01MAY66 
415120A 


04M0V66 
415233 
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074 2 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
074 A 
07* B 
074C 

074 D 
074E 
074F 
0750 
0751 

075 2 
0753 
0754 
0755 
0756 
075 7 

















































0000 

0020 

0000 

0000 

0100 

0200 

0400 

0800 

0010 

0020 

0040 

8000 

8F70 

0025 

0007 

0006 

0005 

0004 

0003 

0002 

0001 

0000 









0758 
0759 
075A 
075 B 00 
075D 
075E 

075 F 00 

0761 

0762 00 
0764 
0765 
0766 
0767 
0769 

076 B 
076C 
076E 
0770 

077 2 
0773 







00 

00 



00 

00 

00 







6208 

6308 

C0F3 

D70G093 8 

73FF 

70FB 

67000131 

1010 

D70 00940 

73FF 

70FC 

C0E8 

04000942 

D4000944 

6308 

C7000938 

F60007AA 

D7000938 

73FF 

70F8 



0774 00 440002D4 

0776 00 440003C4 
0778 00 440003C4 

077A 00 4400032C 
077C 00 440003C4 



077E 
077F 00 
0781 00 
0783 00 
0785 00 
0787 00 
0789 
078A 00 
078C 
078D 



DATE 
EC NO. 



63F8 

C4000684 

04000685 

C600074F 

04000686 

C4000687 

D013 

C7000941 

FOCI 

4820 



01MAY66 
415120A 



TRKA 



DC 

oc 
oc 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
P8F70 DC 
CRCSP DC 
TRKMS DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 
♦XXXXXXXXXXXX 
* 
* 
• 

*XXXXXXXXa»XX 
RTN10 LDX 
RT10L LDX 
RT10J LD 

STO 

MOX 

MDX 

LDX 

SLA 
RT10K STO 

MDX 

MDX 

LD 

STO 

STO 

LDX 
RT10B LD 

EOR 

STO 

MDX 

MDX 



/oooo 

/0020 

/OOOO 

/OOOO 

/0100 

/0200 

/0400 

/0800 

/0010 

/0020 

/0040 

/8000 

/8F70 

/0025 

7 

6 

5 

4 

3 

2 

1 





3 
2 

I 


OEAO TR CNST-TR 7 
6 
5 
4 
3 
2 
1 


DATA PATTERN 

CRC/LRC CHARACTER 

TRACK IN ERROR-TRK 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
TESTING ROUTINE 10 



L3 

3 

L3 

L3 
3 



L 
L 

3 
L3 
L2 
L3 

3 



BSI 

* 

BSI 
BSI 

RT10G BSI 
BSI 

* 

LDX 
LD 
STO 
LD 
STO 
LD 
STO 
RT10C LD 
EOR 
BSC 



04NQV66 
415233 



XXXXXXXXXXX 
8 
8 

P8F70 
I0AA-1 
-I 

RT10J 
305 
16 

IOAA+7 
-1 

RTIOK 
CRCSP 
IOAA+9 
IOAA+ll 
8 

IOA 

TRKD-1 
IOA 
-1 
RT10B 

WRT 



XXXXXXXXXXXXXXXXXXXXXX 
IX 2 = NO TRACKS 

GET PATTERN 

SET IN I/O AREA 

DECR IX 3 

LOOP 

IX 3 = 610 CHARACTER S 

CLEAR A REG 

SET IN I/O 

OECR IX 3 

LOOP 

GET CRC/LRC 

SET AS CRC 

SET AS LRC 

GET A DATA WO 
SET DEAD TRACK 
SET AS DATA 
DECR IX 3 
LOOP 



BSP 
BSP 

RD 
BSP 



-8 



GO WRITE 

GO BACKSPACE 
GO BACKSPACE 

GO READ 

GO BACKSPACE 



SRC 

SRC 
SRC 

SRC 
SRC 



CHECK DATA 



L ONE 
L WDCT 
L2 TRKMS-1 
L MSG4T 
L LNfO 

RT1U0 
L3 IOAA+8 

P8F70 

I 



1X3= NUMBER WDS 

GET 1 

SET AS WD CT 

GET TRK IN ERROR 

SAVE 

SET LINE 

GET A DATA WD 

IS IT CORRECT 



e 
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8B016310 

8BD16320 

8BD16330 

8BD16340 

8BD16350 

8BD16360 

8BD16370 

8B016380 

8BD16390 

8BD16400 

8BD16410 

8B016420 

8BD16430 

8B016440 

8BD16450 

88D16460 

8B016470 

8B016480 

8BD16490 

8BD16500 

8BD16510 

8B016S20 

8B016530 

8BD16540 

8BD16550 

8B016560 

8BD16570 

8BD16580 

8BD16590 

8BD16600 

8BD16610 

8B016620 

88016630 

8BD16640 

8BD16650 

8B0 16660 

8B016670 

8B016660 

8BD16690 

8BD16700 

8BD16710 

8BD16720 

8BD16730 

8BD16740 

8B016750 

8BD16760 

8BD16770 

8B016780 

8B016790 

8B016800 

8BD16810 

8B016820 

8B016830 

8BD16840 

8B016850 

8BD16860 

8BD16870 

8BD16880 

8BD16890 

8BD16900 

8BD16910 

8B016920 

8B016930 

8BD16940 

8BD16950 

8BD16960 

8BD16970 

8BD16980 
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078E 

078 F 00 

0791 

0792 

0793 

0794 










0795 00 



0797 

0798 00 
079A 00 
079C 
079D 
079 E 
079F 
O7A0 00 
07 A 2 00 
07A4 
07A5 00 
07A7 
07A8 
07A9 
07AA 










7008 

74010O85 

7301 

70F7 

72FF 

70C4 

4C0001EA 



C0B6 

D40006E2 

4400 043 A 

E001 

0001 

7001 

70DA 

0C0001C2 

ChOOC688 

OOF 8 

C40001CB 

1007 

4810 

70E5 

70E8 



07AB 
07AC 
07AD 
07AE 
07AF 
07B0 
07B1 
07B2 
07B3 



07B4 00 
07B6 
07B7 00 
07B9 00 
07BB 
07BD 
07BE 



00 







0101 
0202 
0404 
0808 
1010 
2020 
4040 
8080 
808U 



440002BC 

6307 

C7000938 

E40007F6 

D7000938 

73FF 

70F8 



07BF 00 440002D4 

07C1 00 440003C- 
07C3 00 440003C4 

07C5 00 4400032C 
07C7 00 440003C4 



07C9 
07CA 00 
07CC 00 
07CE 00 
07D0 00 
07D2 00 
07D4 
07D5 00 



DATE 
EC NO. 



63F8 

C4000684 

D4000685 

C4000513 

04000686 

C4000687 

D013 

C7000941 



01MAY66 
4I5120A 



RT10D 
RT10E 



* 
RT10F 



RT10Q 
RT10H 



* 
TR"0 



THKB 
*XXXX 

* 

*xxxx 

RTNI11 
RTUL 
RT11A 



MDX 
MDX 
MDX 
MDX 
MDX 
KOX 
BSC 



LD 

STO 

BSI 

DC 

OC 

MDX 

MDX 

XIO 

LD 

STO 

LD 

SLA 

BSC 

MDX 

MDX 



DC 
OC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 



RT10F NO 

WDCT.l I NCR WO CT 

I OECR IX 3 

RT10C LOOP 

-1 IS ROUTINE COMPLETE 

RT10L NO 

RETRN EXIT 



P8F70 

PRPAT 

PRINT 

/E001 

/0001 

RT10H 

RT10G 

ROBSW 

LNE1 

RT10Q 

SWO 

7 



DATA If INCORRECT 

GET PATTERN 
SET FOR PRINT 
PRINT BAD DATA 
ERROR 1 
FORM 1 
CONTINUE 
LOOP ON ERROR 
REAO DATA SWS 
SET NOT LINE 



RT100 
RT10E 



GET SWS 

PRINT ONLY FIRST 

NO 

YES 



CONSTANTS 

/0101 BAD TRK CNST-TR 7 

/0202 6 

/0404 5 

/0808 t, 

/1010 3 

/2020 2 

/4040 ! 

/8080 

/8080 BAD TR CONSTANT 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
TESTING ROUTINE 11 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

BSI L SP80 SET I/O AREA SRC 

LDX 3 7 

LD L3 IOA 

AND L R11X0 

STO L3 IOA SET 

MD * 3 "I DECR IX 3 

MDX RT11A LOOP 



GET A PATT WO 

SET LOST CHARACTER 



BSI 

BSI 
BSI 

RT11B BSI 

BSI 

* 



LDX 
LD 
STO 
LD 
STO 
LD 
STO 
RT11C LD 



WRT 

BSP 
BSP 

RD 
BSP 



GO WRITE 

GO BACKSPACE 
GO BACKSPACE 

GO READ 

GO BACKSPACE 



SRC 

SRC 
SRC 

SRC 
SRC 



CHECK DATA 



3-8 IX 3 = NUMBER WDS 

L ONE GET 1 

L WDCT SET AS WD CI 

L TERM GET FFFF 

L MSG4T SET AS TRK IN ERROR 

L LNEO SET LINE 

RT11Q 

L3 I0AA+8 GET A DATA WD 



°®m 6 
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8B016990 

8BD17000 

8B017010 

8BD17020 

8BD17030 

8BD17040 

8BD17050 

8B017060 

8BD17070 

8BD17080 

8BD17090 

8BD17100 

8B017110 

8B017120 

8BD17130 

8B017140 

8BD17150 

8BD17160 

8BD17170 

8B017180 

8B017190 

8B017200 

8BD17210 

8B017220 

8B017230 

8BD17240 

8BD17250 

8BD17260 

88017270 

8BD17280 

8BD17290 

8BD17300 

8B017310 

8B017320 

8BD17330 

8B017340 

8BD17350 

8B017360 

8B017370 

8B017380 

8B017390 

8BD17400 

8BD17410 

8B017420 

83D17430 

8BD17440 

8BD17450 

8BD1746C 

8B017470 

8B017480 

8BD17490 

88017500 

8B0175I0 

83017520 

8BD17530 

8BD17540 

8BD17550 

8BD17560 

88D17570 

8B017580 

8BD17590 

8BD17600 

8BD17610 

8BD17620 

8BD17630 

8BD17640 

8BD17650 

8B017660 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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07D7 00 F4000203 




EOR 


L 


P80 




0709 4820 




BSC 




Z 


IS WO CORRECT 


07DA 7006 




MDX 




RT11F 


NO 


070B 00 74010685 


RT11D MOX 


L 


WOCT.l 


I NCR 'ID CT 


0700 7301 




MOX 


3 1 


DECR 1X3 


070E 70F6 




MOX 




RT11C 




07DF 00 4C0001EA 


*T1U 

* 


BSC 


L 


RETRN 


ROUTINE EXIT 




* 






DATA 


IS INCORRECT 


07E1 00 C40002D3 


RT11F 


ID 


L 


P80 


GET PATTERN 


07E3 00 040006E2 




STO 


L 


PRPAT 


SET FOR PRINT 


07E5 00 4400043A 




BSI 


L 


PRINT 


PRINT BAD DATA 


07E7 E001 




DC 




/E001 


ERROR 1 


07E8 0001 


RT11C 


OC 




/0001 


FORM 1 


07E9 7001 




MDX 




RT11H 


CONTINUE 


07EA 700A 




MOX 




RT11B 


LOOP ON ERROR 


07EB 00 0C0001C2 


RT11H 


XIO 


L 


RDBSW 


REAO OATA SMS 


07E0 00 C4000688 




LO 


L 


LNE1 


SET NOT LINE 


07EF OOFS 




STO 




RT110 




07F0 00 C40001CB 




LO 


L 


SWO 


GET SWS 


07F2 1007 




SLA 




7 




07F3 4810 




BSC 




- 


PRINT ONLY FIRST 


07F4 70E6 




MOX 




RT11D 


NO 


07F5 70E9 




MDX 




RT11E 


YES 


07F6 FFOO 


*11X0 


OC 




/FFOO 


SET LOST CHAR 




♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 




• 






TESTING ROUTINES 12 




• 






THROUGH 18 




•xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


07F7 73F5 


CMR12 


MOX 


3 


-11 


SET IX 3 


07F8 6B08 




STX 


3 


CM123+1 


SAVE IX 3 


07F9 1010 




SLA 




16 


ZERO A REG 


07FA 00 04000683 




STO 


L 


OECTR 


CLEAR ODD EVEN CTR 


07FC 00 6600FFF8 




LDX 


L2 


-8 


IX 2 - NO WDS 


07FE 00 440002BC 


CM120 


BSI 


L 


S"80 


SET I/O AREA SRC 


0800 00 67000000 


CM123 


LDX 


L3 





RESTORE IX 3 


0802 00 C4000683 




LO 


I 


OECTR 


GET ODD EVEN CTR 


0804 00 84000684 




A 


I 


ONE 


ADD 1 


0806 00 D4000683 




STO 


L 


OECTR 


SAVE 


0808 4804 




BSC 




E 


IS CTR EVEN 


0809 7032 




MDX 




CM122 


NO 


080A 00 C 7000679 




LO 


13 


TR1-1 


GET BAD TRACK CONST 


080C 00 F6000941 


CM121 


EOR 


L2 


I0AA+8 


SET 


080E 00 D6000941 




STO 


12 


i OAA+ 8 


SET 


0810 6B07 




STX 


3 


CM12F+1 


SAVE IX 3 


0811 00 440002D4 


* 


BSI 


L 


WRT 


GO WRITE SRC 


0813 00 440003C4 




BSI 


L 


BSP 


GO BACKSPACE SRC 


0815 00 440003C4 




BSI 


L 


BSP 


GO BACKSPACE SRC 


0817 00 67000000 


CM12F 


LDX 


L3 





RESTORE IX 3 


0819 00 4400032C 




BSI 


L 


RD 


GO REAO SRC 


08 IB 00 440003C4 


* 


BSI 


L 


BSP 


GO BACKSPACE SRC 




• 
* 






CHECK 


OATA 


0810 00 C4000684 


CM126 


LD 


L 


ONE 


GET 1 


081F 00 04000685 




STO 


L 


WDCT 


SET AS HO CT 


0821 00 6F000686 




STX 


Li 


MSG4T 


SET TRK IN ERROR 


0823 00 C4000687 




LO 


L 


LNEO 


SET LINE 


082 5 D021 




STO 




CM120 




0826 6B0C 




STX 


i 


CM128+1 


SAVE IX 3 


0827 63F8 




LDX 


1 


-8 


IX 3 = NO WDS 


082 8 00 C7000941 


CH12C 


LD 


LI 


I0AA+8 


GET A DATA WO 


082 A 00 F4000203 




EOR 


L 


P80 




082C 4820 




BSC 




Z 


IS WD CORRECT 


DATE 01MAY66 
EC NO. 415120A 


04NOV66 








415233 










f ► 4 * 


*» h 


. 




■y 


s * « < s 'i j# 


j ^ \ * 


* 


i 


i 


•4 s 


* *. A 
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8B017670 

8BD17680 

8B017690 

8B017700 

8BD17710 

8BD17720 

8BD17730 

8BD17740 

8BD17750 

8BD17760 

8BD17770 

8BD17780 

88 01 7790 

8BD17800 

8B017810 

8BD17820 

8BD17830 

8B017840 

8BD17850 

8BD17860 

8B017870 

8B017880 

8BD17890 

8BD17900 

8BD17910 

8BD17920 

8BD17930 

8B017940 

8B017950 

8BD17960 

8BD17970 

8BD17980 

88017990 

8B018000 

8BD18010 

88D18020 

88018030 

8BD18040 

8BD18050 

88018060 

8BD18070 

8BD18080 

8BD18090 

8BD18100 

8BD18110 

8B018120 

8BD18130 

8BD18140 

8BD18150 

8BD18160 

PBD18170 

8BD18180 

8B018190 

8S018200 

8B018210 

8BD18220 

8BD18230 

8BD18240 

8B018250 

8B018260 

8BD18270 

8B018280 

8BD18290 

8BD18300 

8B018310 

8BD18320 

88D18330 

8BD18340 
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0820 7012 
082 E 00 74010685 

0830 7301 

0831 70F6 

0832 00 67000000 



0834 00 C4000683 

0836 4804 

0837 70C6 

0838 7201 

0839 70C4 
083A 00 4C0001EA 



083C 00 C7000679 
083E 1008 
083F 70CC 



0840 
0842 
0844 
0846 
0847 
084 8 
0849 
084A 
084C 
084 E 
084 F 
0851 
0852 
0853 
0854 



0855 
0856 
0858 
085A 
085C 
085E 
0860 
0862 
0863 
0864 
0866 
0868 



00 C4000203 
00 D40006E2 
00 4400043A 
E001 
0001 
7001 
70C0 
00 0C0001C2 
00 C4000688 
OOF 8 
00 C40001CB 
1007 
4810 
70DA 
7000 



1010 
00 04000682 
00 6600I-FF8 
00 4400028E 
00 C4000683 
00 84000684 
00 D4000683 

4804 

7030 
00 C40006E0 
00 F6000941 
00 06000941 



086A 00 44000204 

086C 00 440003C4 

086E 00 440003C4 

0870 00 4400032C 

08 72 00 440003C4 



08 74 00 C4000684 
0876 00 04000685 



DATE 
EC NO. 



01MAY66 
415120A 



L3 



MDX 
CM12D MDX 

MOX 

MDX 
CM128 LDX 
* 

* 

CM12E LD 

BSC 

MOX 

MDX 

MDX 
CM125 BSC 

CM122 LO 
SLA 
MDX 

* 

CM12B LD 

STO 

BSI 

DC 
CM12Q DC 

MDX 

MDX 
CM127 XIO 

LD 

STO 

LD 

SLA 

BSC 

MDX 

MDX 
♦XXXXXXXXXXXX 
• 

* 

♦XXXXXXXXXXXX 
RTM19 SLA 

STO 

LDX 
RT19A BSI 

LD 

A 

STO 

BSC 

MDX 

LO 
RT19C EOR 

STO 



CM12B 

WDCT,1 

1 

CM12C 





NO 

INCR WD CT 

DECR IX 3 

LOOP 

RESTORE IX 3 



L3 



OECTR 

E 

CM120 

1 

CM120 

RETRN 



TRl-l 

8 

CM121 



P80 

PRPAT 

PRINT 

/E001 

/0001 

CM127 

CM12F 

RDBSW 

LNE1 

CM12Q 

SWO 

7 

CM120 
CM128 



CHECK FOR ROUTINE COMPLETE 

GlT ODD EVEN CTR 

IS IT EVEN 

NO 

OECR 1X2 

RTN EXIT 

ODO EVEN CTR IS ODD 

GET BAD TR CONSTANT 
MOVE TO FIRST CHAR 

OATA IS NOT CORRECT 

GET EXPECTED 

SAVE 

GO PRINT 

ERROR 1 

FORM 1 

CONTINUE 

LOOP ON ERROR 

READ DATA SWS 

SET NOT LINE 

GET SWS 

IS PRINT ONLY 1 ON 

NO 

YES 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
TESTING ROUTINE 19 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



L 
L2 

L 
L 
L 
L 



L 

L2 

L2 



BSI 

"SI 
BSI 

RT190 BSI 
BSI 

RT19E LD 
STO 



04NQV66 
415233 



16 

OECTR 

-8 

SP7F 

OECTR 

ONE 

OECTR 

E 

RT19M 

TRO 

IOAA+8 

IOAA+8 

WRT 

BSP 
BSP 

RO 
BSP 



CLEAR ODO EVEN CTR 

IX 2 = NO WDS 

GO SET I/O AREA 

GET ODD/EVEN CTR 

ADO 1 

SAVE 

IS CTR EVEN 

NO 

GET BAO TR CONSTANT 

SET BAD CHARACTER 



GO WRITE 

GO BACKSPACE 
GO BACKSPACE 

GO READ 

GO BACKSPACE 



CHECK DATA 



41. 



ONE 
WOCT 



GET 1 

SET AS WD CT 
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8B018350 
8B018360 
8B018370 
8BD18380 
8B018390 
8BD18400 
8BD18410 
8BD18420 
8BD18430 
8BD18440 
BBD18450 
8BD18460 
8B018470 
8BD18480 
8BD 18490 
8BD18500 
8BD18510 
8B018520 
8B018530 
8BD1B540 
8BD18550 
8BD18560 
8BD18570 
8BD18580 
8B018590 

SRC 8BD18600 
8BD18610 
8BD18620 
8BD18630 
880 18640 
8BD18650 
8BD18660 
8B018670 
8BD18680 
8BD18690 
8BD18700 
8BD18710 
8BD18720 
8BD18730 
8B018740 
8BD18750 
8BD18760 
8BD18770 
8BD18780 
8B018790 
8BD18800 

SRC 8BD18810 
8BD18820 
8B018830 
8BD18840 
8BD18850 
8B018860 
8BD18870 
88D18880 
8BD18890 
8BD18900 

SRC 8BD18910 
8B018920 

SRC 8BD18930 

SRC 8B018940 
8B018950 

SRC 8B018960 

SRC 8B018970 
8B018980 
8B018990 
8B019000 
8B019010 
8B019020 



PROG ID 
PAGE 



08B0-0 
14A 
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0878 1010 




SLA 




16 


CLEAR A REG 




8BD19030 




0879 00 D4000686 




STl 


L 


MSG4T 


SET TRK IN ERROR 




8B019040 




087B 00 C4000687 




LO 


L 


LNEO 


SET LINE 




8BD19050 




0870 D021 




STC 




RT19Q 






8B019060 




087E 6B0C 




STX 


3 


RT19J+1 


SAVE IX 3 




8B019070 




087F 63F8 




LDX 


3 


-8 


IX 3 = NUMBER WORDS 




8BD19080 




0880 00 C 7000941 


RT19H 


LO 


L3 


IOAA+8 


GET A DATA WD 




8B019090 




0882 00 F40002A3 




EOR 


L 


P7F 


IS WO CORRECT 




88019100 




0884 4820 

0885 7012 




BSC 

MDX 




I 
RT19N 


NO 




8BD19110 
8BD19120 
8B019130 




0886 00 74010685 


RT19F 


MDX 


L 


WDCT.l 


INCR WO CT 






0888 7301 




MDX 


3 


1 


DFCR IX 3 




88019140 




OSS'* 70F6 




MOX 




RT19H 


LOOP 




8BD19150 




088A 00 67000000 


RT19J 

* 


LDX 


L3 





RESTORE IX 3 




8BD19160 
8B019170 






* 






CHECK FOR ROUTINE COMPLETE 




8BD19180 




088C 00 C4000683 


* 
RT19K 


LD 


L 


OECTR 


GET ODD EVEN CTR 




8BD19190 
8BD19200 




08 eE 4804 




BSC 




E 


IS IT EVEN 




88019210 




08 8 F 70CA 




MDX 




RT19A 


NO 




8B019220 




0890 7 201 




MOX 


2 


1 


DECR IX 2 




8BD19230 




0891 70C8 




MDX 




RT19A 


CONTINUE RTN 




8BD19240 




0892 00 4C0001EA 


*T19L 

* 
• 


BSC 


L 


RETRN 

ODO- 


ROUTINE COMPLETE 
EVEN CTR IS ODD 




8BD19250 
8B019260 
8BD19270 




0894 00 C40006E0 


* 
RT19M 


LD 


L 


TRO 


GET BAD TR CONSTANT 




8BD19280 
8BD19290 




0896 1008 




SLA 




8 


MOVF TO FIRST CHAR 




8BD19300 




0897 70CE 


• 
* 


MDX 




RT19C 

OATA 


IS NOT CORRECT 




8BD19310 
8B019320 
8BD19330 




0898 00 C 40002 A 3 


* 
*T19N 


LD 


L 


P7F 


GET "ATTERN 




8BD19340 
8BD19350 




089A 00 D40006E2 




STO 


L 


PRPAT 


SET FOR PRINT 




88019360 




089C 00 4400043A 




BSI 


L 


PRINT 


PRINT BAD DATA 


SRC 


8BD19370 




089E E001 




DC 




/E001 


ERROR 1 




8B019380 




089F 0001 


RT190 


DC 




/0001 


FORM 1 




8B019390 




08A0 7001 




MDX 




RT19P 


CONTINUE 




8BD19400 




08A1 70CE 




MDX 




RT19D 


LOOP ON ERROR 




8BD19410 




08A2 00 0C0001C2 


RT19P 


XIO 


L 


RDBSW 


READ DATA SWS 




8BD19420 




08A4 00 C4000688 




LD 


L 


LNE1 


SET NOT LINE 




8B019430 




08A6 D0F8 




STO 




RT19Q 






8BD19440 




08A7 00 C40001CB 




LD 


L 


SWO 


GET SWS 




8BD19450 




08A9 1007 




SLA 




7 






8BD19460 




08AA 4810 




BSC 




- 


PRINT ONLY FIRST 




8BD19470 




08AB 700A 




MDX 




RT19F 


NO 




8B019480 




08AC 7000 




MDX 




RT19J 


YES 




8BD19490 






♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


8BD19500 






* 












8BD19510 






* 






TESTING ROUTINE 20 




8BD19520 






* 












88D19530 






♦XXXXXXXXXX XX XXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


X 


8B019540 




08A0 6207 


RT20 


LOX 


2 


7 


IX 2 = NO TRACKS 




8BD19550 




08AE 00 440002BC 


RT200 


BSI 


L 


SP8C 


SET I/O AREA 


SRC 


8BD19560 




08B0 6308 




LDX 


3 


8 






8B019570 




08B1 00 C7000938 


*T2 0A 


LO 


L3 


IOA 


GET A DATA WD 




8BD19580 




0883 00 F60008FF 




EOR 


L2 


TRKC-1 


SET BAD TRACK 




8BD19590 




08B5 00 D7000938 




STO 


L3 


IOA 


SET IN I/O AREA 




8B019600 




08B7 73FF 




MDX 


3 


-i 


OECR IX 3 




8BD19610 




08B8 70F8 




MOX 




RT20A 


LOOP 




8BD19620 




08B9 00 440002D4 


* 


BSI 


L 


WRT 


GO WRITE 


SRC 


8B019630 
8BD19640 




08BB 00 440003C4 


* 


BSI 


L 


BSP 


GO BACKSPACE 


SRC 


8B019650 
8BD19660 




08BD 00 440003C4 


* 


BSI 


L 


BSP 


GO BACKSPACE 


SRC 


88D19670 
8BD19680 




08BF 00 4400032C 


R T 20B 


BSI 


L 


RD 


GO READ 


SRC 


8B019690 




08C1 00 440003C4 




BSI 


L 


BSP 


GO BACKSPACE 


SRC 


8BD19700 




DATE 01MAY66 
EC NO. 415120A 


04NOV66 
415233 
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08C3 
08C4 00 
08C6 00 
08C8 00 
08CA 00 
08CC 
08CD 00 
08CF 00 
08D1 

0802 

0803 00 
08D5 
08D6 
08D7 
08D8 
08D9 00 



08DB 00 
08DD 00 
080 F 00 
08E1 
08E2 
08E3 
08E4 
08E5 00 
08E7 00 
08E9 
08EA 00 
08EC 
08ED 
08EE 
08EF 










63F8 

C4000684 

D4000685 

6E000686 

C4000687 

0015 

C7Q00941 

F4000203 

4820 

7008 

74010685 

7301 

70F6 

72FF 

7005 

4C0001EA 



C40002D3 

D40006E 2 

440C043A 

E001 

0001 

7001 

70DA 

OC0001C2 

C4000688 

D0F8 

C40001CB 

1007 

4810 

70E4 

70E7 



08F0 
08F1 
08F2 
08F3 
08F4 
08F5 
08F6 



08F7 00 
08F9 
08FA 00 
08FC 00 
08FE 00 

0900 

0901 



4040 
2020 
1010 
0808 
0404 
0202 
0101 



4400028t 

6308 

C7000938 

F40007B3 

07000938 

73FF 

70F6 



0902 00 44000204 

0904 00 440003C4 
0906 00 440003C4 

0908 00 4400032C 
090A 00 440003C4 



* 

• 

LDX 

LO 

STO 

STX 

LO 

STO 

RT20C LD 
EOR 
BSC 
MDX 

RT20D MPX 
MDX 
MDX 
MDX 
MDX 
BSC 



CHECK OATA 



RT20E 



3 -8 
L ONE 
L WDCT 
L2 MSG4T 
L LNEO 

RT20Q 
L3 I0AA+8 
L P80 

I 

RT20F 
L WDCT.l 
3 1 

RT20C 
2 -1 

RT200 
L RETRN 



RT20F LO 
STO 
BSI 
DC 

RT200 DC 
MDX 
MDX 

RT2 0H XIO 
LO 
STO 
LD 
SLA 
BSC 
MDX 
MOX 

TRKC DC 

DC 

DC 

DC 

DC 

DC 

DC 
♦XXXXXXXXXX 
• 
* 
* 

♦XXXXXXXXXX 
RT21 8SI 

LDX 
RT21B LD 

EOR 

STO 

MDX 

MDX 
* 

BSI 

BSI 
BSI 

* 

RT21G BSI 
BSI 



IX 3 = NUMBER WDS 
SET WD CT = 1 

SET TRK IN ERROR 
SET LINE 

GET A DATA WD 

IS IT CORRECT 

NO 

INCR WO CT 

DECR IX 3 

LOOP 

IS RTN COMPLETE 

NO 

YES 



P80 

PRPAT 

PRINT 

/E001 

/0001 

RT20H 

RT20B 

RDBSW 

LNEl 

RT200 

SWO 

7 

RT20D 
RT20E 



OATA IS INCORRECT 

GET PATTERN 
SET FOR PRINT 
PRINT BAD DATA 
ERROR 1 
FORM 1 
CONTINUE 
LOOP ON ERROR 
READ DATA SWS 
SET NOT LINE 

GET SWS 

PRINT ONLY FIRST 

NO 

YES 



CONSTANTS 

/4040 BAD TR CNST-TR 1 

/2020 2 

/1010 3 

/0808 4 

/0404 5 

/0202 6 

/0101 7 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
TESTING ROUTINE 21 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
L SP7F 

3 8 

L3 IOA 

L TRKB 

L3 IOA 

3 -1 

RT21B 



WRT 

BSP 
BSP 

RD 
BSP 



SET I/O AREA 

GET A DATA WD 
SET BAD TRACK 
SET AS DATA 
OECR IX 3 
LOOP 

GO WRITE 

GO BACKSPACE 
GO BACKSPACE 

GO READ 

GO BACKSPACE 
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DATE 

EC NO. 



01MAY66 
415120A 



04'gOV66 
415233 



8BD19710 
8BD19720 
8BD19730 
8BD 19740 
8BD19750 
8BD19760 
8BD19770 
8BD19780 
8BD19790 
8BD19800 
8BD19810 
8BD19820 
8BD19830 
8B019840 
8BD19850 
8B019860 
8B019870 
8BD19880 
8BD19890 
8B019900 
8BD19910 
8BD19920 
8BD19930 
8BD19940 

SRC 8B019950 
8BD19960 
8B019970 
8B019980 
8B019990 
8BD20000 
8BD20010 
8BD20020 
88020030 
8BD20040 
8BD20050 
8BD20060 
8B02O07O 
8BD2O080 
8BD20090 
8BD20100 
8BD20110 
8BD20120 
8BD20130 
8B020140 
8BD20150 
8BD20160 
8B020170 
8B020180 
8BD20190 
8BD20200 
8BD20210 
8BD20220 

SRC 8BO2O2:0 
8BD20240 
8B020250 
8B020260 
8BD20270 
88D20280 
8BD20290 
8B020300 

SRC 8B020310 
8B020320 

SRC 8BD20330 

SRC 8BD20340 
8BD20350 

SRC 8B020360 

SRC 8BD20370 
8B020380 



PROG ID 
PAGE 



08BD-0 
I5A 
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090C 
0900 00 
090F 00 

0911 

0912 00 
0914 00 

0916 

0917 00 

0919 00 

0918 
091C 
0910 00 
091F 

0920 

0921 00 



63F8 

C4000684 

04000685 

1010 

D 4000686 

C 4000687 

0013 

C70C0941 

F 400 02 A 3 

4820 

7006 

74010685 

7301 

70F6 

4C0001EA 



0923 
0925 
0927 
0929 
092 A 
0928 
092 C 
092 

092 F 
0931 
0932 
0934 
0935 

093 6 
0937 
0938 
0939 
093A 
OBAO 



00 C40002A3 
00 D40006E2 
00 4400043A 
E001 
0001 
7001 
700B 
00 0C0001C2 
00 C4000688 
OOF 8 
00 C4C001CB 
1007 

4810 

70E6 

70E9 

4267 

0000 

0266 

012D 



RT21C 



RT21D 



HT21E 

* 

*T21F 



RT21Q 
RT21H 



IDA 
I3AA 



ID 

STO 

BSI 

DC 

DC 

MDX 

MDX 

XIO 

LD 

STO 

LD 

SLA 

BSC 

MOX 

MDX 

OC 

DC 

BSS 

END 



CHECK DATA 



LOX 

LD 

STO 

SLA 

STO 

LO 

STO 

LD 

EOR 

BSC 

MDX 

MDX 

MDX 

MOX 

BSC 



3 -8 



L ONE 
L WDCT 

16 
L MSG4T 
L LNEO 

RT210 
L3 IOAA+8 
L P7F 

Z 

RT21F 
L WOCT.l 
3 1 

RT21C 
L RETRN 



P7F 

PRPAT 

PRINT 

/E001 

/0001 

RT21H 

RT21G 

ROBSW 

LNE1 

RT210 

SWO 

7 

RT210 

RT21E 

Z4267 



614 

START 



NUMBER WDS 



IX 3 ' 

GET I 

SET AS WD CT 

CLEAR A REG 

SET TRK IN ERROR 

SET LINE 

GET A OATA WO 

IS IT CORRECT 

NO 

INCR WD CT 

OECR IX 3 

LOOP 

EXIT 



OATA IS INCORRECT 

GET PATTERN 
SET FOR PRINT 
PRINT BAD DATA 
ERROR 1 
FORM 1 
CONTINUE 
LOOP ON ERROR 
READ DATA SWS 
SET NOT LINE 



SRC 



GET SWS 

PRINT ONLY FIRST 

NO 

YES 

WORD COUNT 

I/O AREA 



8BD2076 
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8BD20390 

8BD20400 

83D20410 

88020420 

8BD20430 

8B020440 

8B020450 

8BD20460 

88020470 

8BD20480 

8BD20490 

8B020500 

8BD20510 

8BD20520 

8B020530 

8BD20540 

8B020550 

8BD20560 

88020570 

8BD20580 

8BD20590 

8BD20600 

8B020610 

8BD20620 

8BD20630 

8B020640 

8BD20650 

8B020660 

8B020670 

8BD20680 

8BD20690 

8B0207OO 

8BD20710 

8B020720 

8B020730 

8BD20740 

8BD20750 

8B020760 

8BD20770 



t • 

t t 

r t 

#- ♦ 

r, 
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1 • 

I 

9 • 
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PART NO. 2183276 
PAGE 16A 



SYMBOL VALUE 

BEGAN 0147 

BEGIN 0143 

BSP 03C4 



REFERENCES 

014A 

01AE, 

030D, 

06A8t 

0813, 

0906, 



0186,0100,0217 

0345,037C,03B4,03CE,063C,063E,0644,06A2,06A4. 

0709, 070B,070F, 0776, 0778, 077C,07C1,07C3,07C7, 

0815, 081 B,086C,086E, 0872, 08BB, 08 BO, 08C1, 0904, 
090A 



BSP 10 


03F4 


0302,0303,0304 


BSP01 


03C5 


03F0 


BSP02 


03CE 


03CB.03DA 


BSP03 


03D0 


03C0.03E4 


BSP 04 


030B 


0309 


BSP05 


03E5 


03E3 


BSP 06 


03E7 


03C9 


BSP07 


03F1 


03EF 


CLN 


0370 


0*68 


CLN1 


037A 




CLN2 


0370 


0386 


CLN3 


0383 


037B, 0394,0395,0396 


CLN5 


0388 


0391,0392,0398 


CLN6 


038C 


038A 


CLN7 


038E 


0388 


CLN8 


0393 


0382 


CMRT 
CMRTB 


0624 
0666 


0104, 0105, 0106,0107,0108, 0109, 01DA 
0654 


CMRTC 


064F 


0658 


CMRTO 


065 5 


0678 


CMRTE 


065B 




CMRTF 


0640 


0639, 066F 


CMRTT 


0103 


01A6.01EC0453 


CMRTO 


0629 


0650, 06 5F 


CMRT1 


0635 


0665 


CMRT2 


0662 


0632 


CMRT3 


062B 


0624 


CMRT5 


0660 




CMRT6 


0646 




CMRT7 


0670 


066E 


CMRT8 


0659 


064B.0679 


CMRT9 


0660 


064D, 0671 


CMR12 
CM12B 


07F7 
0840 


01DF,01EO,01E1,01E2,OIE3,01E4,01E5 
082J 


CM12C 


0828 


0831 


CM12D 


082E 


0853 


CM12E 


0834 




CM12F 


0817 


0810,0849 


CM120 


0847 


0825, 084E 


CM 120 


07FE 


0837,0839 


CM121 


080C 


083F 


CM 122 


083C 


0809 


CM123 


0800 


07F8 


CM125 


083A 




CM 126 


0810 




CM127 


084A 


0848 


CM128 


0832 


0826,0854 


COO EH 


05DE 


05C1 


CORDS 


03C1 


0360 


CRCA 


073E 


0701 


CRCSP 


074F 


06F 1,0766 


CRC7F 


02A4 


02 9C 


C3C8F 


02BB 


02B4 


CRC80 


0202 


02C6 


OSL 


0622 


0618,061B,061C,061F 


DSLT 


0617 


03B6,0620 


DSW 


023A 


0231, 02E3.02E 8, 0302, 0340, 0349, 035E, 
03E7, 0410 



OSWCR 



0682 



DATE 
EC NO. 



4 * 



4 » 



01MAY66 
415120A 



0hN0V66 
415233 
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PROG 10 
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EC NO. 
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01MAY66 
415120A 
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f»ID WILL 8E REFERRED TO AS A SET OF SKELETONS. S * ELET0NS F » «I 




FlStlS."' SKELET ° NS " ILL BE ""HOW BY THE FOLLOWING IOENTI- 



*J) 



PID 08CX-Z SKELTONS FOR YV 



I » VERSION 
X • 4 OR 5 
W - PID FOR THE PROGRAM TO BE EDITF). 
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3.3 PROGRAM OPERATIOM 

SET IN THE DATA ENTRY SWITCHES TO SELECT THE DESIRED EDIT OUTPUT 
AS FOLLOWS* 

CARDS ONLY - /OOOO 
PAPER TAPE ONLY- /8000 
CARDS AND TAPE - /4000 

A MESSAGE WILL BE PRINTED ON THE 1816 AFTER CORRECT LOADING 
REQUESTING THE PID OF THE PROGRAM TO Bb EDITED. THE PROGRAM WILL 
THEN RfAD CARDS LOOKING FOR A SKELETON WITH THE PID OF THE PROGRAM 
TO BE EDITED. WHEN THIS IS FOUND THE PROGRAM WILL ASK A SERIES 
OF QUESTIONS VIA THE 1B16 AND THE CE MUST RESPOND TO EACH. 

AFTER EACH RESPONSE THE END OF FIELD (EOF) KEY MUST BE DEPRESSED. 
WHEN MAKING MULTIPLE ENTRIES A COMMA MUST BE TYPED AFTER EACH 
GROUP AND EOF AFTER THE LAST ENTRY. IN CASE OF AN ERROR OR CORRECTIONS 
SEE SECTION 3.7. 

3.4 PROGRAM TERMINATION 

A MESSAGE WILL BE PRINTED TO INDICATE ALL NECESSARY DATA HAS 
BEEN RECEIVED AND THE EDIT INFORMATION WILL BE PUNCHED VIA THE METHOD 
SELECTED IN SECTION 3.3. THE PROGRAM THEN LISTS ALL THE EDIT 
INFORMATION SO A RECORD MAY 6t MAINTAINED. A MESSAGE ANO A 
PROGRAM WAIT TERMINATES THE PROGRAM. 

3.5 RERUN OR RESTART PROCEDURE 

FOR EITHER RERUN OR RESTART PLACE THE DESIRED SKELETON (TO SELECT 
A SKELETON SEE 3.2> IN THE READER AND PUSH START. A REQUEST FOR 
PID MESSAGE WILL INDICATE A SUCCESSFUL RETRY. IF THIS PROCEDURE 
FAILS, SEE SECTION 3.1 PROGRAM LOADING. 

A. RERUN 

AFTER THE READER IS READY PRESS START. 

S. RESTART 

AFTER THE READER IS READY PRESS STOP, RESET, AND START. 

3.6 PROGRAM WAITS 

PROGRAM WAITS ARE IDENTIFIED BY THE B AND I REGISTER AND ARE FOUND 
AT THE BEGINNING OF THE LISTING. THE FOLLOWING IS AN EXAMPLE. 

B-REG I-REG WAITS COMMENTS 

*0° f 01ED DC WAITF+1 IN THIS AREA IS * 

* DESCRIPTION OF THE 

* ABOVE WAIT. 

* 



DATE 
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PROG 10 
PAGE 



08C2-* 
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u* 



f 



t i 



( i > 



o 
n 

n 
n 

1 1 

( i 






3.7 ERROR PROCEDURE 

ERRORS WILL FALL INTO TWO TYPES. 

A. REPEAT FIELD 

AN ERROR MESSAGE INDICATES A PROGRAM FOUND ERROR BECAUSE OF 
INCORRECT FORMAT OR THE ERASE FIELD KEY ( ER FLD) HAS BEEN 
DEPRESSED. ALL THE DATA ENTERED SINCE THE LAST COMMA HAS BEEN 
ERASED. THE LINE WITH THE ERROR WILL CONTAIN THREE ASTERISKS. 

B. REPEAT ChARACTER 

IF THE CE WISHES TO CORRECT THE LAST CHARACTER TYPED HE WILL 
PRESS ERASE CHARACTER KEY (ER CHR). THE TYPEWRITER WILL 
BACKSPACE AND THE CORRECT CHARACTER WILL BE TYPED OVER 
THE ERROR CHARACTER. IF AN OVERPRINT IS NOT DESIRABLE, 
MANUALLY LINE FEED BEFORE TYPING THE CORRECT CHARACTER. 

4. PRINTOUTS 

4.1 STATUS MESSAGES BEGIN WITH AN A AND WILL TELL OF SOME CONDITION. 
MIO PROG MESSAGE 

A001 CNTRL EDIT CARD LIST 

ALL NECESSARY DATA HAS BEEN ENTERED AND THE 
INFORMATION WILL BE PUNCHED AND LISTED. 

A002 CNTRL END OF PRS 

THE PROGRAM IS FINISHED FOR THE PID SELECTED. 

IF ANOTHER PID IS TO BE SELECTED SEE SECTION 3.5. 

4.2 COMMAND MESSAGES BEGIN WITH A C AND REQUESTS ACTION BY THE CE FOR 
THE CONTINUATION OF THE PROGRAM. 

THE LIST OF CHARACTER AND MEANING THAT WILL BE FOUND IN COMMAND 

MESSAGES. 

WW - A DEVICE, SUCH AS 1442, CONSOLE INTERRUPT, OR MONITOR 

OUTPUT. IT WOULD INCLUDE FIRST OR SECOND OEVICE. 
W - MAG TAPE DRIVE OR 1. 
XX - P10 OF PROGRAM BEING EDITEO. 
II - CARD NUMBER 

MID PROGRAM MESSAGE 

COOO CNTRL ENTER 2 DIGIT PID TO BE EDITED. 

ENTER THE PID OF THE PROGRAM THAT IS TO BE EDITEO. 

C001 PID XX-CO Z2 ENTER ? DIGIT DECIMAL INTERPT LVL FOR WW. 

C002 PID XX-CD 00 ENTER 2 DIGIT DECIMAL ILSW BIT FOR WW. 

C003 PIO XX-CD 00 ENTER 1 DIGIT DECIMAL CH FOR WW. 

C004 PID XX-CD 00 ENTER NUMBER OF WW ON SYSTEM, 1 DIGIT. 

C005 PIO XX-CD 00 DOES THIS SYSTEM HAVE 2 WW-TVPE V Oft N. 



DATE 
EC NO. 



04N0V6* 
415239 



PROG ID 
PAGE 



08C2-* 
2A 






"4. 



<i > 






| v 



< M <<<<<((<<<< < <<<<<<(<<<<<<< ( ( ( ( ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
EDIT UTILITY CONTROL FOR PIDS C2. C3, C4, ANO C5 



PART NO. 2242263 



PAGE 



C006 PID XX-CD 00 ARE AORS REFERENCE CHANGE DESIRED-TYPE V OR N. 



C007 PIO XX-CO 00 



C008 PIO XX-CO 00 



IF THE ADDRESSES NORHALLY USED BY THE PROGRAM 
ARE KNOWN TO BE BAD, ANSWER Y. PR °G«AH, 

ENTER 1 DIGIT DECIMAL FLO NUMBER TO BE CHANfFn 

FOLLOWED BY 3 DIGIT DECIMAL ADRS DESIRFr£* » 

ENTRIES IN FOLLOWING FORMAT D "IRE0-l-8 
ODD.. 

ENTER 4 DIGIT HEX TIMER BASE FOR INT TIMER A. 



TIME BASE 
OF TtMER A 
IN MILLISEC. 

128.000 

64.000 

32.000 

16.000 

6.000 

4.000 

2.000 

1.000 

.500 

.250 

.125 



C009 PIO XX-CO 00 
COOA PID XX-CD 01 



CONSTANT ENTEREO 
IN HEX 



0001 
0002 
0004 
0007 
OOOt 
001B 
0036 
006B 
00D6 
01AB 
0356 



COOB PIO XX-CO 11 



COOC PID XX-CD 11 



COOD PID XX-CD 11 
COOE PID XX-CD 00 



COOF PID XX-CD 00 
C010 PIO XX-CD 00 



ENTER A I MODEL-TYPE 1 OR 2. 

ENTER 5 DIGIT DECIMAL CYCLE COUNT. 

THIS COUNT DETERMINES THE NUMBER OF TIMES EACH 

srsss K'ffa/asH ;»;f ™- 

SHOULD FIRST RDING BE PREC VOLT-TYPE Y, OR N. 

TYPeV* ST J'S T?ptD T ^E P A R ! C p^O^: W L ,^" 
USE^FIRST ENTRY RECEI ^^^10* 

STAR? D T0°,G C N0R R E E r ™ ,S ERR ° R °* ""« 
IoN^^1SrE^orw S ,?rB V E^UN A C^D S A^ E r;STEOAT 
IS EXT SYNC DESIRED-TYPE Y OR N. 

- S tyJe°y S or E n. TO CHANGE The dlv con stant 
Is Ses!red.°typ E TH y: ™ AN ™ E STAN0AR0 

ENTER 2 DIGIT HEX DELAY CONSTANT. 
TYPE E V°M N. PEE ° FCR ™ IS SYS 2 "1«SEC- 
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OATE 
EC NO. 



04N0V66 
415233 



COll PIO XX-CD 00 

C012 PID XX-CO 00 

C013 PID XX-CD 00 

C014 PID 01-CD 02 



ENTER 2 DIGIT DECIMAL AREA COOE FOR WW. 
DOES THIS SYSTEM HAVE A VVW-TYPE V OR N. 
IS DRIVE W A 9 TRK DRIVE-TYPE V OR N. 

i-ZoVv^f! '\ F0 J? the ""-lowing FORMAT. 

IL 4 ?LSW V CH E AC~MOO ACE """^ ENTR '"' 



C015 PID OB-CO 01 



C016 PIO OB-CD 01 



C017 PID 21-CO 00 
C018 PIO 21-CO OA 
C019 PIO 21-CD IB 



C01A PIO 21-CD 1C 
C01B PID 21-CO ID 
C01C PID XX-CD 04 



C01D 
C01E 



DD DD H DD HH, 

D - DECIMAL CHARACTER. 

" " CHANNEL!"' 1 CHARACTER " fc NTER 0-8 OR F FOR 

D EV.C L rON^Hr S F ?s R 7EM T . ,ON " iNT "" "» "" 
IS IT DESIRED TO CHANGE WD CTS-TYPE V OR N. 

BY ?HE D pfnn N Ic °I^ R ™* N TH0SE «ORH*LLY USED 
BY THE 2400 IS PROGRAM ARE DES1RE0, TYPE V. 

ENTER RFC TO CHANGE AND WO CT DESIRED Iki 
FOLLOWING FORMAT UfcSIRED IN 

DODDt 

IS COMPARATOR FEATURE INSTALLED-TYFE Y OR N. 
IS OVERLAP CHECK DESIRED-TYPE V OR N. 
ENTER 3 DIGIT DECIMAL WO CT 1-100. 

IS OVERLAP CARD INSTALLED-TVPE V OR N. 
SHOULD LIMIT WOS BE HONORED-TYPE V OR N. 
ENTER 2 01GIT DECIMAL RESOLUTION. 
TYPE EITHER, 08,11, OR 14. 
NOT USED 
NOT USED 
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COIF PID XX-CD 06 ENTER DECIMAL ADDRESSES. 



THE INPUT MUST FOLLOW THIS FORMAT. FROM 1-100 
<>,'LWES MAY BE ENTERED .IF, AN 4D0RESS HAS A 
,<L MIT WORD, TYPE «t' IN* THE SPACE INDICATED. 
( SEE LINE 1 ) IF THERE IS NO LIMIT WORD. 
TYPE im COMM* AFTE-R THE ADDRESS (SEE LINE 3) 
IF CHAINING IS DESIRED, TYPE »C» ON THE NEXT 
«fLINE AFTE* THE ADDRESS. t,SEE LINE 21 A 1 IN 
, THE HIGH ORDER POSITION OF' THE MPX ADDRESS 
INDICATES A SOLID STATE POINT. PRESS THE EOF 
KEY AFTER THE LAST LINE. 



MPX 
ADOR 
10XXX L, 

C, 
10XXX, 



10XXX (PRESS EOF 
KEY ) 



I SOLID STATE ADOR. THAT 

HAS LIMIT WORD) 
( CHAIN TO NEXT ADDRESSI 
I SOLID STATE ADOR. WITH NO 

LIMIT WORD) 
( CHAIN TO NEXT AODRESS I 
( SOLID STATE AODR. WITH NO 
LIMIT WORD AND NO CHAINING! 



C020 PID 21-CD 10 ARE LMT CK WDS DESIRED-TYPE V OR N. 

C021 PID 21-CD 10 ENTER LMT WD DATA FOR ADR. 

THE INPUT MUST FOLLOW THIS FORMAT. THERE 
WILL BE ONE C021 MESSAGE FOR EACH MPX ADDRESS 
THAT IS TO BE LIMIT CHECKED. 

RANGE PkEC VOLT LIMIT WORD 
XXX YXXX.XXXXX +XXX -XXX (PRESS EOF KEY) 
NOTE 
•V« IS THE SIGN OF THE PREC VOLT VALUE, IT 
MUST BE EITHER •♦• OR •-». 

C022 PID XX-CD 11 ENTER DECIMAL ADDRESS AND RANGE. 

THE INPUT MUST FOLLOW THIS FORMAT. FROM 1-5 
LINES MAY BE ENTERED. A 1 IN THE HIGH ORDER 
POSITION OF THE MPX AODRESS INDICATES A SOLIO 
STATE POINT. PRESS THE EOF KEY AFTER THE 
LAST LINE. 



MPX 

AODR RANGE CONSTANT 

XXXXX XXX. 

XXXXX XXX, 

XXXXX XXX, 

XXXXX XXX, 

XXXXX XXX 

(PRESS EOF KEY) 



RANGE TABLE 

RANGE CONSTANT TO ENTER 

500 MV 500 

200 MV 200 

100 MV 100 

SO MV 050 

20 MV 020 

10 MV 010 

5 VOLTS 005 

C023 PID XX-CD IZ ENTER DECIMAL ADDRESS, RANGE AND PREC VOLT. 

THE INPUT MUST FOLLOW THIS FORMAT. FROM 1-5 
LINES MAY BE ENTERED. SEh MESSAGE C022 FOR 
RANGE TABLE. A 1 IN THE HIGH ORDER POSITION OF 
THE MPX ADDRESS INDICATES A SOLID STATE POINT. 
PRESS THE EOF KEY AFTER THE LAST LINE. 



U 



ADOR RANGE PREC VOLT VALUE 
XXXXX XXX YXXX.XXXXX, 
XXXXX XXX YXXX.XXXXX, 
XXXXX XXX YXXX.XXXXX. 
XXXXX XXX YXXX.XXXXX, 



NOTE 
•Y* IS THE SIGN OF 
THE PREC VOLT VALUE. 
IT MUST BE EITHER 
•♦• OR •-•. 



( ) 
f) 

o 

( ) 
C) 



XXXXX XXX YXXX.XXXXX, (PRESS EOF KEYI 

C024 PID 22-CD 06 ENTER OECIMAL ADDRESS AND WO CTS FOR THE AIIAT TBL. 

EACH MPX ADDRESS IS FOLLOWEO BY A WORD COUNT TO 
DETERMINE THfc LENGTH OF THE SEOUENTIAL TABLE. A 
MAXIMUM OF FIVE SEOUENTIAL TABLES MAY BE CHAINED 
TOGETHER TO A TOTAL WORD COUNT OF 150. 

THE INPUT MUST FOLLOW THIS FORMAT. FROM 1-5 
LINES MAY BE ENTERED. A 1 IN THE HIGH ORDER 
POSIT. ON OF THE MPX ADDRESS INDICATES A SOLID 
STATE POINT. PRESS THE EOF KEY AFTER THE LAST 
LINE. 

ADOR WO CT 

XXXXX XXX, 

XXXXX XXX, 

XXXXX XXX, 

XXXXX XXX, 

XXXXX XXX ( PRESS EOF KEY) 

C025 PID 23-COS 2,4,5 ENTER DECIMAL ADR, RESOL AND f-ANGE. 

THE INPUT MUST FOLLOW THIS FORMAT. FROM 1-5 
LINES MAY BE ENTERfcO. SEE MESSAGE C022 FOR 
RANGE TABLE A 1 IN THE HIGH ORDER POSITION OF 
MPX AODRESS INDICATES A SOLID STATE POINT. 
PRESS THE EOF KEY AFTER THE LAST LINE. 
A 1 IN THE HIGH ORDER POSITION OF THE MPX AOOR 
INDICATES A SOLID STATE POINT. PRESS THE EOF 
AFTER THE LAST LINE. 

ADOR RES RANGE 

XXXXX XX XXX, 

XXXXX XX XXX, 

XXXXX XX XXX, 

XXXXX XX XXX, 

XXXXX XX XXX (PRESS EOF KEY ) 

C026 PID 23-CDS 2-5 ENTER DECIMAL ADR, RESOL, RANGE, PREC VOLT. 

THE INPUT MUST FOLLOW THIS FORMAT. FROM 
1-5 LINES MAY BE ENTERED. SEE MESSAGE 
C022 FOR RANGE TABLE. A 1 IN THE HIGH 
ORDER POSITION OF THE MPX AODRESS INDICATES 
A SOLID STATE POINT. PRESS THE EOF KEY 
AFTER THE LAST LINE. 



ADDR RES RANGE PREC VOLT VALUE 



I 



i 



XXXXX XX XXX YXXX.XXXXX, 
XXXXX XX XXX YXXX.XXXXX, 
XXXXX XX XXX YXXX.XXXXX, 
XXXXX XX XXX YXXX.XXXXX, 
XXXXX XX XXX YXXX.XXXXX 



NOTE 



•Y» IS THE SIGN 
OF THE PREC VOLT 
VALUE. IT MUST 
BE EITHER •♦• 
(PRESS EOF KEY) OR •-• 



i" 



C027 PID 23-CD 06 IS RANDOM MODE DESIRED-TYPE V OR N. 

C028 PIO 23-CD 08 ENTER 1 DIGIT WO COUNT FROM 1 TO 5. 

A NUMBER FROM 1-5 IS ENTEREO TO 
INDICATE THE NUMBER OF MULTIPLEX 
ADDRESSES IN THE AIMPX TABLE TO BE USED. 
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C029 PID 24-CD 00 ENTER 2 DIGIT DECIMAL NUMBER OF DIGITAL INPUT 
GROUPS ON THE SYSTEM. * ,WU ' 

(01-24) 

C02A PID 25-CD 00 ENTER 3 DIGIT ObCIMAL NUMB.-R OF HIGHEST DIGITAL 
INPUT ADRS AVAILABLE ON THIS SYSTEM. DI6,TAL 

•064-127) 
CO20 PID 25-CD 00 ARE PISW ENTRIES OESIREO-TYPE Y OR N. 
C02C P,D 25 -CD 00 -TE^DESIRED^L^LS- FOR P1SWS-1 TO 24 ENTRIES 

DO DO.. 
C02D PID B6-CD 00 ENTER 2 DIGIT HEX MODIFIER FOR 2ND 1442. 
C02E PID B6-CD 00 IS MAG TAPE DR A 2402-TYPE V OR N. 
C02F PID B9-C0 00 ENTER^ DIGIT DECIMAL MODEL OF DRIVE -TYPE 

C030 PID BD-CD 00 NO DR HAS BEEN EDITED AS A 9 TRK DRIVE- 
TH S S SY? T %M H ^ e ' :0RE ,S RLEGAL TO RUN ON 

typI y or n7 des,re to CMAN6E entries- 

C031 PID BE-CD 00 IS^ WORD COUNT OTHER THAN 321 OESIR'D-TVPE 
C032 PID BE-CD 00 ENTER 4 DIGIT DECIMAL WORD COUNT. 

C033 PID BE-CD 00 THE WORD COUNT ENTERED WILL FORCE DSW ERRORS 
DURING^THE PROGRAM RUN-, S THIS dIsJrEd! w" 

C034 P,D BE-CD 00 IS A PATTERN OTHER THAN FFFF OESIRED-TVPE Y OR N. 
C035 PID BE-CD 00 ENTER 4 DIGIT HEX PATTERN DESIRED. 
C036 PID 06-CD 00 IS THE ABOVE ID NUMBER FOR VVVV-TYPE Y OR N. 
C037 PIO 06-CD 00 ENTER 1 DIGIT TYPEWRITER ID NUMBER 1-B. 
C03B PID OA-CO 00 DOES 1443 HAVE 120 PR,NT POSITIONS-TYPE Y OR N. 
" EM? ^^^J™^^ K «. OR AN 



MID PROG 
E001 



MESSAGE 

LINE CANCELLED. 



^V^M THE S N B ! E T N W,^ S ^ ^SeTtoNV^! ««" 
THE LINE WITH THE ERROR WILL CONTAIN T^eTaIt^SKS^ ^^ 



E002 CNTRL 



ENTRY TOO LARGE. 



C T H ND?T A Io A N . ENT ?HE E VuElT^N RG W E ?Lr^ J&ift" ™ * «"« 
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E003 CNTRL 



ILLEGAL ENTRY. 



J H Or" T ON E ?JIf E ? n AS . N °I T R ! 00eSTE0 - SOUTHING OTHER THAN 
o'thVtSaVo^ A'-rON'HEx'^TR 1 ?.*" " ° N ° EC,MAL *»"«> °« 



E004 CNTRL 



FORMAT ERROR. 



E005 

E006 

E007 

EOO0 

E009 

EOOA 

EOOB 

EOOC 

EOOO 

EOOE 

EOOF 

E010 

ECU 

E012 
E013 
E014 
E015 
E016 



MRL B 4 E A RE E Pe"t R E E D. WAS N ° T ,N ™ E PR0PER «*""• T « «"«T,ON 

CNfRL 1442 ERROR. 

THE 1442 WAS NOT READY OR AN ERROR WAS DETECTED. 

PIO XX-CO ZZ 2 OR MORE ENTRIES ARE IDENTICAL. 

PIO XX-CD ZZ ENTRY TOO LARGE OR 0000. 

PIO XX-CO 00 ADRS WAS BETWEEN 90 ANO 110. 

PID XX-CD 00 NUMBER OF DEVICES WAS GREATER THAN 3. 

PID XX-CD 22 ADRS IS TOO GREAT. 

PID XX-CD 00 NUMBER OF DEVICES WAS 0000. 

PID XX-CD 00 ILLEGAL TIMER CONSTANT. 

PID XX-CD 00 ILLEGAL MODEL. 

PID XX-CD 2Z CYCLE COUNT OF 0000. 

PIO XX-CD 22 AREA CODE WAS TOO LARGE. 

PID XX-CD ZZ IMPROPER NUMBER OF WDS. 

TOO MANY LINES OF DATA OR TOO MANY OR 
TOO FEW CHARACTERS PER LINE WERE ENTERED. 



PID XX-CD 22 TOO MANY WORDS ON ONE CARD. 



E017 



JniL^^ T0UT M,LL 0CCUR WLV IF A 
COMPARE INSTRUCTION IS FAILING TO SKIP. 

PID OB-CD 00 TOO LARGE A WO CT-MAX IS 1000. 

NOT USED 

NOT USED 

NOT USED 
PID 21-CD 00 HIGH VALUE LESS THAN LOW. 

^AyER GH THA R N T R HE TY LO- H r NEL ^^ » 
PIO 21-CD IB ILLEGAL WD CT. 

HORD COUNT ENTERED WAS ZERO OR GREATER THAN 100 
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E018 PID 21-CD 06 MORE THAN 2 RLY PTS. 

MOKE THAN 2 RELAY POINTS WERE ENTERED. 
E019 PID 21-CD 06 MOD 2 AND MORE THAN 1 RLY PT. 
E01A PID 21-CD 06 RLY PT IN LAST ADRS-A11AT TBI. 
E01B PID 21-CD 06 LESS THAN 95 SS PTS BETWEEN RLY PT. 

E01C PID 21-CD 06 WD CT IS GREATER THAN NUMBER OF A1IAT ENTRIES 
E01D PID 21-CD 10 ENTRIES DO NOT MATCH. ENTRIES. 

SCANNED THE AIIAT TABLE WITHOUT FINDING AN 
ADDRESS THAT WAS SPECIFIED IN THE A1MPX TABLE. 
EITHER THE ADDRESS IS MISSING OR THE ADDRESSES 
ARE NOT IN THE SAME SEQUENCE. 

E01E PID 21-CD 10 LMT CK REO WRONG. 

1. LIMIT WORDS WERE ENTERED BUT COMPARATOR 
WAS NOT INSTALLED. 



2. 



LIMIT WORDS WERE ENTERED BUT OPERATOR 
TYPED N IN REPLY TO MESSAGE C020. 

IN BOTH CASES THE PROGRAM PUTS ZEROS IN 
THE LIMIT WORD TABLE AND CONTU.JES. 



E01F PID 21-CD 10 ATTEMPTED TO LMT CK RLY ADR IN OVERLAP. 



E020 



NOT USED 



E021 PID 22-CD 2-6 FOUND NO MATCH OF ADR AND AIIAT ENTRIES 
C027 PID 23-CD 06 IS RANDOM MODE DESIRED-TYPE Y OR N. 

C028 PID 23-CD 08 ENTER 1 DIGIT WD COUNT FROM 1 TO 5. 

THE WORD COUNT (AIWC) WENT TO ZERO BEFORE ALL 
OF THE A1MPX ADDRESS WERE FOUND IN THE 
AIIAT TABLE. 



E022 
E023 
E024 
E025 
E026 
E027 

E028 
E029 
E02A 
E02B 
E02C 



06 
06 



PID 22-CD 
PID 22-CD 
PID 23-CD 
PID 23-CD 
PID 24-CD 



PID 25-CD 00 



PID 25-CD 
PID B6-CD 
PID B9-CD 



NOT USED 

WO CT GREATER THAN 150. 

WD CTS IN AIIAT TBL ARE ALL 0000. 
08 ENTRY WAS 0000 OR GREATER THAN 5. 
2-8 WO CT IS GREATER THAN NUMBER OF AIMPX ENTRIES. 
"00 NUMBER OF GROUPS ENTERED WAS TOO GREAT. 

CANNOT Bfc MORE THAN 64 GROUPS. 

ADRS ENTERED WAS GREATER THAN 127. 

NOT USED 

ADRS ENTERED WAS LESS THAN 64. 

ILLEGAL MODIFIER. 

ENTRY WAS GREATER THAN 3. 



00 
00 
00 



5. COMMENTS 

Iw^rflSlVS'e™ 6 PI ° RE0UESTED HUST BE LOADED BEHIND THE PROGRAM. 
(SEE SECTION 3.2 FOR SKELETON SELECTION) IF THE SELECTED SKF1 FTnN 

Iv\n L.T« JEn^ 00 **" HUL HANG U " ,N ™ E «-OADER L AFTtR SEARCHING ALL 
« I™,Sn ,5 «"2 NS * " HEN THf " F,RST SKELET 0N »F THE SELECTED PID 
IS FOUND IT IS LOADED INTO MEMORY. IF T-HJS IS THE 4K tDIT C0NTRQ1 
? R 2! R *c. i P1 ° 08C2) THE SKELETONS WILL'BE BROUGHT INTO MEMORY ONE AT A 

' i ASK1N6 «TS OUESTIONS. THE 8K EDIT CONTROL PROGRAM (PID 08C3) 
WILL BRING IN ALL SKELETONS BELONGING TO THE SELECTED PID. 

AFTER ALL THE NECESSARY DATA FOR THE SELECTED PID HAS BEEN RECEIVED 
THE CARD READER WILL PASS ANY PUNCHED CARDS AND WHEN BLANK CARDS ARE 
FOUNO BEGIN PUNCHING THE EDIT CARDS. IF THE PAPER TAPE VERSION IS 
USED THE PUNCH WILL START AS SOON AS THE NECESSARY DATA HAS BEEN 

Eo^oM&iiS F p : c rK. BEEN completeo the prograh usts ™ e 

MOST ERRORS THAT ARE FOUND BY THE PROGRAM WILL BE CORRECTED AT THE 
TIME THE DATA IS REOUESTED. IN THE 4K EDIT CONTROL PROGRAM IF THE 
C P RREC I! 0N CAN N0T Be ACCOMPLISHED AT THE TIME OF ENTrTTmESsIgE OCCURS 

NDICATING THE PROGRAM AND SKELETONS HUST BE RELOADED OR PRESS START TO 
IGNORE THE ERROR AND MAKE THE CORRECTION MANUALLY AFTER THE EDIT iSJoRHATION 
RF? N ?T E A, P V« H !?, T PRINTE °. >N THE RK EDIT CONTROL PROGRAM T ,NF ° RM * T,0N 
REINITIALIZES ALL SKELETONS AND CONTINUES FROM THE POINT OF ERROR. 

««».«!! PI ° h * V 6E EDITE ° AT * T,ME AND ,F A SEC0ND EDITING IS 
REQUIRED SEE SECTION 3.5 FOR RERUN OR RESTART. 



6. PROGRAMMERS GUIDE TO EDIT CONTROL USAGE 



6.1 PURPOSE 



JIn't^^^IE?!,-^.,!"^ DOCUME "TATION TO SPECIFY HOW THE PROGRAMMER 
£*,?,* E ADVANTAGE OF COMMON ROUTINES WHEN WRITING SKELETONS TO RUN MIT 
EDIT CONTROL PROGRAM. EDIT CONTROL PROVIDES, ^"-ETONS TO RUN WIT 



1. 
2. 
3. 

4. 



SHARING OF PREDEBUGGED COMMON ROUTINES. 

INTERFACE BETWEEN SKELETON ANO I/O DEVICES. 

«m.!»^ NG ° F SKELET0N OPERATION WHEN SEVERAL SKELETONS ARE 

COMMON BLOCKS OF STORAGE FOR MULTIPLE USE. 



6.2 RESERVED AREAS OF STORAGE 

A. •KEVIN* 

Tniv Ilc*.2r2?!icS F t?° W0R0S USED TD ST0RE KEYBOARO ENTRIES AS 
THEY ARE RECEIVED. AT LOCATION 'KEYIN-1' IS A COUNT OF THE WORDS 

n?5«n 2v'?!! r . IN n: ,l^ l l BLDCK 0F DATA AND THE WDRD C0UNT is 

t< «t J ,£*>K°2 ™ E R0UT I N E'KEY.' A TERMINATOR WORD OF /FFFF 
IS SET AS THE LAST WORD IN 'KEYIN' WHENEVER THE EOF KEY IS 
DEPRESSED FOLLOWING ANY KEYBOARD CODE. THIS AREA MAY BE USED AS 
TEMPORARY STORAGE BY SKELETONS BETWEEN CALLS ON THE ROUTInI "kEY" 

B. 'BINARY' 

i, B l' »e ¥. 16 ° M0RDS U3E0 T0 ST0RE CONVERTED DATA. THIS DATA 
WILL BE EITHER DECIMAL OR HEXADECIMAL DEPFNDING ON THE <"ONVFR*imu 
ROUTINE LAST USED BY THE SKELETON. A COUNT OF THE NUMBER OF 
WORDS CURRENTLY STORED IS CONTAINED IN LOCATION 'BINARY-!.' 
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C. 'ZERO' 

THIS LOCATION CONTAINS A CONSTANT OF ZERO. 
0. 'TERM* 

THIS LOCATION CONTAINS A CONSTANT OF /FFFF. .-■"" 

E. 'STBF' 

THIS STORAGE LOCATION CONTAINS THE DISPLACEMENT OF THE NEXT 
LOCATION AVAILABLE IN THE BLOCK OF CORE LABELED 'SEIB.' 'STBF' 
V±i BE PROp ERLY UPDATED BY CONTROL IF EOIT CARDS ARE STORED IN 
CARD ORDER. IF IT IS DESIRED TO BUILD EOIT CARDS OUT OF SEQUENCE. 
THEN 'STBF' MUST BE MAINTAINED, BY THE SKELETON USER. » eMUB ""» 

F. 'SEIB' 

A BLOCK OF 322 WOROS USED FOR SAVING EDIT CARDS. THIS BLOCK MAY 
NOT BE REFERENCED DIRECTLY BY THE SKELETON. HOWEVER IT MAY 
BE REFERENCED THRU LABEL 'SRTRY*1« TO +323. THE NEXT AVAILABLE 
LOCATION MAY BE FOUND BY REFERENCE TO THE DISPLACEMENT CONSTANT 
CONTAINED IN LOCATION -STBF.' wwi«« 

G. 'SRTRY' 

THIS LOCATION SHOULD ALWAYS CONTAIN THE RETURN ADDRESS TO BE 
REFERENCED BY ROUTINE «SER" IN CASE OF AN ERROR. T.ilS LOCATION 

?«..2S 5" E,fM " BY * 0I * ECT ST0RE 0R Br * CAU - "" ioUTtNE 
■SSUER.' 

6.3 ROUTINES AVAILABLE IN EDIT CONTROL 

NE H C E ES F sliR Y H TS G uii ?HE"oST?NE? N * ^ ^^ WMUi " * N ° T » "" 

A. 'CKVN' - CHECK KEYBORAO ENTRY FOR V OR N. 

BSI I CKYN 
RETURN 1. 
RETURN 2. 

!«v?2" T in E v'ni £ HEC, L THE * EVB0AR ° ENTRY STORED AT LOCATION 
•KEVIN' FOR Y OR N. IF THE ENTRY IS V, THE ROUTINE WILL RETURN 



TO RETURN 
RETURN 2. 



1. IF THE ENTRY IS N, THE ROUTINE WILL RETURN TO 
.„„, ,,„ JHE ROUTINE WILL ACCEPT EITHER THE UPPER OR LOWER CASE 
ENTRY FOR THE Y AND N KEYS. IF THE ENTRY IS NEITHER V OR N 
A CALL IS MADE ON ROUTINE 'SER' TO PRINT 'ILLEGAL ENTRY.* 

B. »ENDO« - END STATEMENT RETURN 

EN01 BSC L ENDO 
ENO END1 

IN ORDER TO PREVENT RELOCATION ERRORS DURING ASSEMBLY, EACH 
SKELETON MUST END WITH THE ABOVE TWO STATEMENTS. THE END 
STATEMENT WILL THEN GO TO LABEL 'END1' WHICH WILL BRANCH TO THE 
EDIT CONTROL PROGRAM AFTER LOADING OF EACH SKELETON. 

C. «HLT' - RELOAD WAIT 

BSI 1 HLT 

BRANCH TO A WAIT WITHIN THE EOIT CONTROL PROGRAM. THIS WAIT MUST 
BE USED WHEN AN ERROR REQUIRING RELOAD IS ENCOUNTERED. 



•KTVPS' - PRINT WITH NO CONVERSION 

BSI I KTVPS 

TILT CODE. THE MESSAGE ADDRESS MUST BE CONTAINED IN INDEX 
REGISTER 1. PRINTING IS TERMINATED WHEN /FFFF IS FOUND. 

•KEVi - PRINT EBCDIC ANO READ KEYBOARD 

BSI I KEY 

DC MESSAGE ADORESS 

DC CONTROL WORD 

*££*«! H R .!2J] N L C0NT,NUES UNTIL /FFFF ,S F0UN °« > F MESSAGE 
AODRESS POINTS TO A /FFFF, NO PRINTING WILL TAKE PLACE. 

AFTER PRINTING, BIT OF THE CONTROL WORD IS CHECKED FOR 
THE FOLLOWING, 

BO - - RETURN WITHOUT REAOING KEVBOARO 

- 1 - READ THE KEYBOARD UNTIL EOF IS DEPRESSED. 

BITS 6 AND 7 OF CONTROL WORD. 

00 - STORE KEYBOARD ENTRIES IN 'KEVIN' AREA WITH NO 
CONVERSION. 

CONVERT KEYBOARD CHARACTERS RECEIVED (AS 
SPECIFIED BY BITS 8-111 TO DECIMAL ANO STORE IN 
•BINRY' AREA. 

CONVERT KEYBOARD CHARACTERS RECEIVED (AS 
SPECIFIED BY BITS 8-11) TO HEXADECIMAL AND STORE 
IN 'BINRY' AREA. 



01 - 



10 



BITS 8-11 OF CONTROL WORD 

?n T ?r?2«$ 0NVeRSI0N THIS IS THE "»<>"0M NUMBER OF CHARACTERS 
TU ACCEPT* 

WITH COVERSION, THIS IS THE NUMBER OF KEYBOARD CHARACTERS TO 
CONVERT TO ONE DECIMAL OR HEXADECIMAL WORD. tM * R * CTERS T0 

F. 'SSUER' - SET ERROR RETURN 

BSI I SSUER 

, S I^! Ill * 00RE£S 0F THE CALL IN LOCATION 'SRTRY' FOR POSSIBLE 
LATER USE BY ROUTINE 'SER.' *' 

G. 'SER' - PRINT ERROR MESSAGE 



BSI 

OC 



SER 

MESSAGE AODRESS 



^n««I H rn2l??* C I f PEC,FIE ° BY MESSAGE ADDRESS AND RETURN TO THE 
ADDRESS CONTAINED IN LOCATION 'SRTRY.' MESSAGE IS TERMINATED BY 

/rrrFt 
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H. »SIL» - CHECK FOR VALID INTERRUPT LEVEL 
8SI I SIL 

CHECKS THE DECIMAL ENTRY STORED AT LOCATION «BINRY« FOR A VALID 
INTERRUPT LEVEL. II- THE ENTRY IS VALID, THE ROUTINE RETURNS 
WITH THE ENTRY IN THE A REGISTER IN BITS THROUGH 7, IF THE 
ENTRY IS GREATER THAN 23, THIS ROUTINE HILL CALL ON ROUTINE 
•SER' TO PRINT 'ENTRY TOO LARGER 

I. ♦SIL$*M - CHECK FOR VALID ILSW BIT 

BSI I SILSW 

CHECKS THE DECIMAL ENTRY STORED AT LOCATION 'BINRY' FOR A VALID 

ihlSv B iI*Tul F . T oLfcI?I J S VAL1D ' THE RIJ UTINE RETURNS WITH THE 
ENTRY IN THE A REGISTER IN BITS 8 THROUGH 11. IF THE ENTRY IS 
GREATER THAN 15, A CALL IS MADE ON ROUTINE 'SER' TO PRINT 
'ENTRY TOO LARGE". 

J. 'SCH' - CHECK FOR VALID CHANNEL 

BSI I SCH 

CHECKS THE HFXADECIMAL ENTRY STORED AT LOCATION 'BINRY' FOR A 
VALID CHANNEL. IF THfc ENTRY IS VALID, THE ROUTINE RETURNS WITH 
THE ENTRY IN THE A REGISTER IN BITS 12 THROUGH 15. IF THE ENTRY 

to pIint^ent^ t 8 oo AN large^ T F ' * CALL ,S MA0E 0N routine ,SER ' 

K. 'SK1N0' - CLEAR KEYIN AREA 

BSI I SKINO 

CLEARS THE BLOCK OF CORE LABELED 'KEVIN' TO ALL ZEROS. 

L. 'SK1NI' - SET KEYIN AREA 

BSI I SKINI 

SETS THE BLOCK OF CORE LABELED 'KEYIN' TO /FFFF. 

M. 'POKYB' - CONVERT KEYBOARD TO DECIMAL 

BSI I PDKYB 

DC CHARACTERS PER WORD 

DC ADDRESS OF DISPLACEMENT 

STARTING AT LOCATION 'KEVIN' ♦ THE CONTENTS OF DISPLACEMENT 
ADDRESS, THIS ROUTINE WILL CONVERT TO ONE DECIMAL WORD THE NUMBER 
OF KEYBOARD CHARACTERS SPECIFIED BY CHARACTERS PER WORD. CONVER- 
SION WILL CONTINUE UNTIL A TERMINATOR OF /FFFF IS FOUNd! 

N. PHKYB' - CONVERT KEYBOARD TO KEXADEC1PAL 

BSI I PHKYB 

DC CHARACTERS PER WORD 

OC ADDRESS OF DISPLACEMENT 

THIS ROUTINE IS IDENTICAL TO ROUTINE 'PDKYB' EXCEPT THAT THE 
CONVERSION IS TO HEXADECIMAL* 



0. 



'SECSU' 



SET EDIT CARD 



BSI 
DC 



I 



SECSU 

ADDRESS- OF DATA 



INDEX REGISTER 1 MUST CONTAIN PID. 

INDEX REGISTER 2 MUST CONTAIN CARD NUMBER. 

INDEX REGISTER 3 MUST CONTAIN NUMBER OF ENTRIES. 

I?IL R0UT J2f ? lLL . SE J 0NE COMPLETE "IT CARD INTO LOCATION 
'SEIB ♦ STBF.' THE CONTENTS OF 'STBF' WILL HE UPDATED BY THE 
ROUTINE TO THE NEXT AVAILABLE LOCATION AFTER THE EDIT CARD JUST 

«? RE £,\ r. S J£c , „ MAV BE " T BY THE SKELETON IF IT IS DESIRED TO 
SET EDIT CARDS OUT OF SEQUENCE. 



'S2' 



SKELETON EXIT 
BSC L S2 



6.4 SKELETON REQUIREMENTS 

«rT,nM F l: ET ? N " UST BE PRECEE0ED 8V * SERIES OF EQUATE STATEMENTS. (SEE 

i?ATFMF N t*£. \lr « E t^! L !I2 NS M ° ST BE RELOCATABLE AND THE ORIGIN 

STATEMENT MUST BE TO **3095. NO SKELETON MAY EXCEED 1000 WORDS AND 

TOTAL SKELETONS FOR ANY ONE PID MUST NOT EXCEED 5000 WORDS. 

THE FIRST THRFE WORDS OF EACH SKELETON ARE RESERVED FOR PID. 

CARD NUMBER AND NUMBER OF ENTRIES. THE FOURTH WORD MUST 

BE THE ENTRY POINT OF THE SKELETON . THESE FIRST FOUR 

WORDS MUST BE LABELED SKI1, SKI2, SKI3, AND SKI4. (SEE SECTION 6 71 

EACH SKELETON MUST END AS EXPLAINED UNDER 'ENDO'I SECTIONS 6 6 1 ' 

AND 6.8 CONTAIN A SAMPLE PROGRAM WHICH CAN BE USED FOR Re7er£nCE 

2?i5*S E S " SH ° MN IN THE SAMPLE PR0GRAM «E IN StSnMRD FORMAT AND THIS 
FORM SHOULD BE FOLLOWED. STANDARD MESSAGFS PRESENTLY IN THE DOCUMENTA- 
TION SHOULD BE USED WHENEVER POSSIBLE TO PREVENT DOCUMENTATION CHANGES? 

6.5 COMMENTS 

A SL^ ABEL ? C0NT *'NED IN THE EQUATE STATEMENTS NOT EXPLAINED ABOVE ARE 

no^cSncern" tSe T u2«. USED exclusivelv by The a ' E ">n skele E ?on!°aVn1ed 
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6.6 EOUATE STATEMENTS 





ORG 


KEY 


600 


CKVN 


EOU 


SSUER 


EOU 


SIL 


EOU 


SILSH 


EOU 


SCH 


EOU 


SER 


EOU 


SECSU 


EOU 


SKIN1 


EOU 


SKI NO 


EOU 


POKYB 


EOU 


PHKYB 


EOU 


ENOO 


EOU 


S2 


EOU 


BINRY 


EOU 


KEYIN 


EOU 


ZERO 


EOU 


BGNR 


EOU 


ERR 


EOU 


HCC 


EOU 


MTRM 


EOU 


TRFX 


EOU 


TERM 


EOU 


LUC 


EOU 


LGROP 


EOU 


STBF 


EOU 


SRTRY 


EOU 


KYTPS 


EOU 


HLT 


EOU 


CODE 


EOU 



6.7 PROGRAM SECTION 

SKI1 
SKI2 
SKI3 
SK14 



•♦3095 

300 

KEV*1 

CKYN+1 

SSUER+1 

SIL*1 

SILSW*1 

SCH+1 

SER+1 

SECSU+1 

SKINH-1 

SKINO+l 

PDKYB+1 

PHKY6+1 

ENOO+2 

S2*4 

BINRV*161 

KEVIN+600 

ZERO+1 

BGNR+1 

ERR+1 

WCC*1 - 

MTRM+1 

TRFX+l 

TERM*1 

LHC*1 

LGROP+1 

STBF+1 

SRTRV*323 

KVTPS*1 

HLT*1 



DC 




/OOOB 


DC 




/oooo 


DC 




/0002 


BSI 


I 


SSUER 


BSI 


I 


KEY 


DC 




SMI 


DC 




/6120 


BSI 


I 


SIL 


STO 


L 


SHB1 


BSI 


I 


SSUER 


BSI 


I 


KEY 


DC 




SM2 


DC 




/8120 


BSI 


I 


SILSW 


EOR 


L 


SWB1 


STO 


L 


SHB1 


BSI 


I 


SSUER 


BSI 


I 


KEY 


OC 




SM3 


DC 




/6210 


BSI 


I 


SCH 


EOR 




SWB1 


STO 




SWB1 


BSI 


I 


SSUER 


BSI 


I 


KEY 
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SKI 
SK2 



* 
SK3 



PID 

CD NO 

NO OF ENTRIES 

SET ERROR RETURN 

ENTER IL 



CK IL 
SAVE 

SET ERROR RETURN 
ENTER ILSH 



CK ILSH BIT 
BUILD DOEF 
SAVE 

SET ERROR RETURN 
ENTER CH 



CK CHANNEL 
BUILD DDEF 
SAVE 

SET ERROR RETURN 
2 DRS ON SYS 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 



SRC 
SRC 



PROG ID 
PAGE 
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SK5 



SK6 



08C2-» 
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DATE 
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DC 
DC 



SN4 
/8000 



BSI I CKVN 

MOX SKI 

LO K0001 

STO SWB2 

MDX SK2 



SLA 
STO 



16 
SWB2 



LDX II SKU 
LOX 12 SKI2 
LDX 13 SKI3 



BSI I 
DC 



SECSU 
SMB1 



BSI I SSUER 

BSI I KEY 
DC SM5 
DC /8000 



BSI 
MDX 
MDX 



1 



CKYN 

SK3 

SK4 



LOX II SKI1 
LOX 12 SKIS 
LOX 13 SKI6 



BSI 
DC 

BSC 



I SECSU 
SWB3 

L S2 



BSI I SSUER 

BSI I KEY 
OC SM6 
DC /S040 



LD 

CMP 

MDX 

NOP 

LDX 

LD 

STO 

LD 

STO 

BSI 

OC 

OC 

LD 

BSC 

CMP 

MPX 

NOP 

STO 

LDX 

MOX 

MDr 

MOX 

BSI 

DC 



L KEV1N-1 
K0056 
SKE01 

LI KEYIN 

1 
L KEYIN 
L TERM 
L KEYIN+1 
I PDKVB 
1 

ZERO 
L BINRY 
L SKE05.4-- 
K0008 
SKE04 


SK6+1 
.3 



o 



KEYIN-1,-2 

SK7 

SER 

SE001 
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CK FOR V OR N 
ENTRY WAS V 

GET 1 

SET NOT AVAIL 



SET AVAIL 
SET IXING 

SET CARD 



SET ERROR RETURN 
ARE WD CT CHGS DES 



CK FOR Y OR N 
ENTRY HAS V 
ENTRY HAS N 



SRC 



SRC 



SRC 

SRC 



SRC 



SET IXING 



SET CARO 



EXIT 

SET ERROR RETURN 
ENTER REC HD CT, 



GET HD CT 
CK FOR MAX 
ER^R-TOO MANY 

SET IX 

GET ENTRY 

SET 

GET FFFF 

SET 

CONVERT 



GET REC NO 

ERROR 

CK FOR MAX 

TOO GREAT 

SET 

IX 3 - ENTRY 
INCR IX 1 
DECR HO CT 

TOO FEW ENTRIES 



SRC 



SRC 
SRC 



SRC 



SRC 
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SK7 


LO 




1 




SET ENTMES 




STO 


L 


KEYIN 








LO 




1 1 








iSTO 


L 


KEVIM-1 


, 




to 


J 


1 2 








STO 


L 


KEY,lN«-2 


L , 




LD 


; 


1 3 








STO 


L 


KEY1N+3 


.: 




LO 


L 


TERM 






* 


STO 


L 


KEY1N+4 






BSI 


I 


POKVB 




CONVERT 




DC 




4' 








DC 




ZERO 








LD 


L 


BINRY 




CK NUMBER 




CMP 




K1000 








MDX 




SKE03 




ERROR TOO GREAT 




NOP 













STO 


L3 SWB2 




SAVE ENTRY 




MDX 


1 


, 5 




INCR IX 1 




MOX 


L 


KEYIN- 


•lt-5 


OECR MO CT 




MDX 




S5 




GET NEXT 


* 


MDX 




SK3 




COMPLETE 


K0001 


DC 




1 




CONSTANTS 


K0056 


DC 




56 






K1000 


DC 




1000 






K0008 

* 


DC 




8 






SMB1 


DC 









DATA STORAGE 


SWB2 


DC 











SWB3 


DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 


















* 












SKIS 


DC 




/0001 




CO ONE 


SKI6 


DC 




/0008 




NO OF ENTRIES 


SKE01 


BSI 


I 


SER 




TOO MANY WD CTS 


* 


DC 




SE001 






SKE03 


BSI 


I 


SER 




WD CT TOO GREAT 


• 


DC 




SE003 






SKE04 


BSI 


I 


SER 




REC TOO GREAT 


* 


DC 




SE004 






SKE05 


BSI 


1 


SER 




FLO HAS ZERO 


• 


DC 




SE004 






SE001 


EBC 




.E010 


FID OB- 


-CO 00. 




EBC 




. IMPROPER NUMBER . 




EBC 




•OF WOS. 




« 


DC 




/FFFF 






SE003 


EBC 




.6012 


PIO OB- 


-CD 00. 




EBC 




. TOO 


LARGE A HO C. 




EBC 




.T-MAX 


IS 1000. 


* 


DC 




/FFFF 






SE004 


EBC 




.6007 


PIO OB-CO 00. 




EBC 




. EWTP 


1Y TOi' I 


.ARGE . 



SRC 



SMI 



SM2 



* 
SM3 



SM4 



SM5 



* 
SM6 



EN01 



EBC .OR 0000. 

DC /FFFF 

EBC .C001 PID OB-CO 00. 

EBC . ENTER 2 DIGIT 0£. 

EBC .CIMAL INTR LVL FOR. 
EBC ' . MAG TAPE. 

DC /FFFF 

EBC .C002 PID OB-CD 00. 

EBC . ENTER 2 DIGIT OE. 

EBC .CIMAL ILSW BIT FOR. 

EBC . MAG TAPE. 

OC /FFFF 

EBC .C003 PID OB-CD 00. 

EBC . ENTER 1 DIGIT OE. 

EBC .CIMAL CH FOR MAG T. 

EBC .APE. 

DC /FFFF 

EBC .C005 PID OB-CD 00. 

EBC . DOES THIS SYSTEM. 

EBC . HAVE 2 TAPE DRS-T. 

EBC .YPE Y OR N. 

DC /FFFF 

EBC .C015 PIO OB-CD 01. 

EBC . IS IT OESIRED TO. 

EBC . CHANGE WD CTS-TYP. 

EBC .E V OR N. 

DC /FFFF 

EBC .C016 PID OB-CO 01. 

EBC . ENTER REC TO CHA. 

EBC .NGE AND WO CT 0ES1. 

EBC .RED, 1-8 ENTRIES I. 

EBC .N FOLLOWING FORMAT. 

EDC .tD DDDD,. 

DC /FFFF 
BSC L ENDO 

END END1 



SRC 
SRC 
SRC 
SRC 
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6.8 TERM SKELETON 










ORG 


•♦3095 




KEY 


EOU 


300 




CKYN 


EOU 


KEY-U 




SSUER 


EOU 


CKYN+1 




SIL 


EOU 


SSUIR+1 




SILSH 


EOU 


SU + 1 




SCH 


EOU 


SILSW+1 




SEP/ 


EOU 


SCH+I 




SECSU 


EOU 


SER+1 




SKIN1 


EOU 


SECSU+1 




SKI 1,0 


EOU 


SKIN1+1 




POKYB 


EOU 


SKINO+1 




PHKYB 


EOU 


PDKYB+l 




ENOO 


EOU 


PhKYB*l 




S2 


EOU 


ENOO+2 




BINRY 


EOU 


S2+4 




KEYIN 


EOU 


BINRY+161 




ZERO 


EOU 


KEYIN+600 




BGNR 


EOU 


ZERO+1 




ERR 


EOU 


BGNR+1 




WCC 


EOU 


fcRR*l 




MTRM 


EOU 


WCC+1 




TRFX 


EOU 


MTRM+1 




TERM 


EOU 


TRFX+1 




LWC 


EOU 


TERM+l 




LGROP 


EOU 


LWC+l 




STBF 


EOU 


LGROP+1 




SRTRY 


EOU 


STBF+1 




KYTPS 


EOU 


SRTRY+323 




HLT 


EOU 


KYTPS+1 




CODE 


EOU 


HLT+1 




SKI1 


DC 


/OOOB 




SKI2 


DC 


/FFFF 




SKI3 


DC 







SKI 4 


DC 







END1 


BSC L 


ENOO 






END 


END1 




M»»IM a 
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DATE 
EC NO. 
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PAGE 



08C2-* 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
« EDIT CONTROL 



02 BC 



3001 0772 



3002 OTSC 





3003 0983 


( 




( 


3004 098A 


( 




f 


3005 OBET 


r 






3006 090? 



BOOT 090E 



3008 05E0 



3009 

0C1T 

0C1S 

0CI9 

0C1A 

012C 

0120 

012E 

012F 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

013T 

0138 00 

01 3 A 00 

013C 


















05ET 

0T7A 

079A 

07A1 

OTAF 

07BA 

07C8 

0705 

0803 

080E 

0818 

0821 

4C800A94 

4C0005B9 

0000 



ABS 

ORG 



/3001 



DC WAIT1+1 19 16 IS OUT OF FORMS. 

. HAKE REAOY AND PRESS 

I— START. 

»**•»•••**»»****»*»**»*.,„.»»„,„„„,„,„,.., 

DC WAIT2*1 1816 IS HUNG IN BUSY. 

*•»•*...... ...~~ RESTART IS REQUIRED. 

DC KA1T3+1 1442 IS NOT READY 

BEFORE A READ. 
HAKE READY AND PUSH 
J START. 

♦ ***»♦*»♦♦***#♦»♦*,,♦„., ••*•♦»•♦••♦♦**.♦,»«„,« 

DC HAIT4H 1442 READ ERROR. 

m RELOAD CARDS AND 

: .......... ..«*«5:x:js.::::^ 

•♦♦••••••*•*••»»#•*♦»»♦♦»«„»„»,„ *#»»»»*»**» 

DC WAIT5*1 RELOAD REQUIRED TO 

CORRECT ERROR-PRESS 

; ••••• ~.«.5. T :::.:s,is:ss:«— 

••••••»**•• »•••••»*»•♦»»♦»»», „ # ,»,„ ##i ,„^ ### 

DC HAIT6*1 U42 IS NOT READY 

I BEFORE PUNCH. HAKE 

»«««. REAOY AND PRESS START. 

**♦»»»♦»»•*♦*»*»**.»«». »*».»»„,,»,»,», < ,„, # . <l 

^ DC WAIT7»I l',42 PUNCH ERROR. 

;•• • —. .""^i:::.:^:::; 

*»♦».»••***»*♦**•»».*».»,»»,,»*„,„.„„„„, 

DC WAIT8*1 ENO OF PROGRAH. 

LOAD SKELETONS AND 

•••••..♦ ::n^::::.2.:s:x:; 

ORG 300 

3095 
SKI1«| 
SKI2*1 
SKI3*1 
KEYE 
CKYNE 
SSUEE 
SILE 
SILSE 
SCHE 
SERE 
SECSE 
KIN1 
KINO 
DKYB 
HKVB 



SKI1 E&U 
SKI2 EOU 
SKI 3 EOU 
SKI4 EOU 
KEY DC 
CKYN DC 
SSUEft OC 
SIL OC 
SILSH DC 
SCH OC 
SER DC 
SECSU DC 
SKIN1 OC 
SKINO OC 
PDKV6 OC 
PHKYB DC 

ENDO BSC I ROSK 
S2 BSC L ENOt 

OC 



DATE 
EC NO. 



Q mr 



41! 



PART NO. 22422*1 



! ( •■' i: 

o - o 

o I o 
o o 



8C200010 

8C200020 

8C200030 

8C200040 

8C200050 

8C 200060 

8C200070 

8C200080 

8C200090 

8C200100 

8C200110 

8C200120 

8C200130 

8C200140 

8C200150 

8C200160 

8C200170 

8C200180 

8C200190 

8C200200 

BC200210 

8C 200220 

8C200230 

8C200240 

8C200250 

8C200260 

8C200270 

8C200280 

8C2 00290 

8C200300 

8C200310 

8C200320 

8C 200330 

8C200340 

8C200350 

8C20036S 

8C200370 

8C200380 

8C200390 

8C200400 

8C200410 

8C200420 

8C200430 

8C200440 

8C2004S0 

8C200460 

8C200470 

8C200480 

8C200490 

8C200500 

8C200510 

8C200520 

8C200530 

8C200540 

8C200550 

8C200560 

8C200S70 

8C200580 

8C200590 

8C200600 

8C200610 

8C200620 

8C200630 

8C 200640 

8C200650 

6C200660 

8C200670 

6C200680 
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o 
o 
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r> 

<*> 



o 



n 



O 



O 

n 
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n 



n 



08C2-0 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1000 SYSTEN 
4K EDIT CONTROL 



013D 
013E 

01DE 
010F 



0437 
0438 
0439 
043A 
043B 
043C 
0430 
043E 
043F 
0440 
0441 



0000 
OOAQ 

0000 

0258 

0000 
0AB4 
0AC1 
OACS 
OACD 
OAES 
FFFF 
0000 
0000 
0000 
0000 



0442 





0000 


0443 




0141 


0584 





0768 


0585 





0BE5 


0566 





0A69 


0588 




0000 



0588 00 4C00058B 



058A 
0588 00 
058D 00 
058F 
0591 
0592 00 
0594 00 



00 




1000 

C40005E2 

D400006F 

04000129 

1010 

D4000127 

D4000440 



0596 C8F1 

0597 00 DCOOOOOO 
0599 00 4480012E 
059B 00 4480012C 
059D OBBB 
059E 8220 

059F 00 C4000I3E 
05A1 00 B40005E6 
05A3 703F 
05A4 1000 
05A5 D038 

05A6 00 44000A94 

05A8 C80F 
05A9 00 DCOOOOOO 



05AB 00 
05AD 00 
05AF 
05B1 
05B3 00 
0585 00 
05B7 00 



00 
00 



C4000C1? 
F40005EI 
4C2005B9 
C4000C18 
F400043D 
4C1805C3 
4C000C1A 





- 




05B9 00 C40005E2 
05B8 00 D400006F 
0560 00 D4000125 


• 


"» 




k t &>. mw 


n , 


o 


% 




o 1 


n 







BINARY MORD COUNT 



BHC DC © 

BINRV BSS 160 

******** *»»**»*«9*»»**» e * s » s9##(>4 „ ss ,, t#s>### 

KEVIN BSS 600 



ZERO 

BGNR 

ERR 

WCC 

«TSH 

TRFX 

TERM 

LMC 

LGROP DC 

STSF DC 

SRTRY DC 

• 

***...•** EOIT IMAGE BUFFER •*»•****•* 



OC 

DC 
DC 

ac 

OC 

OC 
DC 
8C 



/oooo 

LBGNft 

IERR 

LMCC 

LHTRR 

LTRFX 

/FFFF 





/OOO0 



WC STORAGE 
GROUP COUNTER 
DISPLACEMENT 



SI 



SEIB DC 

BSS 
KTVPS DC 
HLT OC 
CODE DC 

BSS 
SRST BSC 
• 

* 

STARI NOP 
START LD 
STO 
STO 
SLA 
STO 
STO 

LDD 
STD 
BSI 

BSI 
DC 

DC 



1,0 

CUP 

HQX 

NOP 

STO 

SSI 

LOD 
STD 

LD 

EOR 

BSC 

LD 

EOR 

BSC 

8SC 

IB 

STO 

STO 



/oooo 

32! 

KTVP 
HITE 
KTIIT 


START 



RESTART 

CONTROL SECTION 



• 
S2E 



ENS! 



L 

L 
L 
L 

L 
L 
I 

L 
t 
L 





K3095 

/006F 

/0125 

16 

/012? 

STBF 

SRST 

/OOOO 

SSUER 

KEY 

SM2 

/8220 

BINRV 

KOOFF 

ERR04 



XPID 

ROSK 

SRST 

/OOOO 

SKI! 

XPID 

ENDU2 

SK12 

TERM 

STTRM,*- 

SK14 

K3095 
/006P 

#0125 



SET LOR CONSTANTS 



SET RESTART 

SET ERROR RETURN 
REQ PID 



GET PID REOUESTEO 

SAVE 

READ A SKELETON 
SET RESTART 



GET PIO READ 

IS IT DESIRED 

NO 

GET CD NO 

IS IT TERN 

YES 

GO TO SKELTON 

RESET LOADER CNSTS 

* 



SRC 
SRC 



SRC 



PART NO. 2242261 
PAGE la 



8C200690 

8C200700 

8C2O07S0 

6C200720 

8C200730 

8C200740 

8C200T50 

8C 200760 

8C200770 

9C2O078O 

8C200790 

8C200800 

8C200810 

8C2O082O 

8C200820 

8C20Q840 

8C200850 

3C200860 

8C200870 

8C200880 

8C200890 

8C20090Q 

8C200910 

8C 200920 

8C20O930 

8C200940 

8C200950 

8C20O960 

8C2009T0 

8C200980 

8C200990 

8C201000 

8C201010 

8C201020 

8C201O3O 

8C201040 

8C201050 

8C201060 

BC 201070 

BC201060 

8C201090 

8C20I100 

8C201110 

8C01120 

8C201130 

8C201140 

8C201150 

8C201160 

8C201170 

8C201180 

8C201190 

8C2O120© 

8C201210 

8 r 20l220 

8C201230 

8C201240 

8C201250 

SC201260 

8C2012T0 

8C201280 

8C201290 

8C201300 

8C201310 

8C201320 

8C201330 

8C201340 

8C201350 

8C201360 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
*K EDIT CONTROL 



05BF 1010 
05C0 00 0*00012? 
05C2 70E3 



05CS 
05C5 
05C7 
05C8 
05CA 
05CC 
05C0 
05CF 
0500 
0502 
05D3 



00 C4OO044O 

00 64000801 

0001 

00 65000000 

00 C4000C1? 

D100 

00 C400043D 

0101 

00 44000907 

1010 

00 04000440 



05D5 00 65000142 
0507 00 D4000441 
0509 71FF 
05 OA 70FC 
050B 00 4480012C 
050D 0B01 
05 DE 0000 



05DF 
05E0 



3008 
70AA 



05E1 oooo> 

05E2 0C17 
05F3 00 44800132 
05E5 OBAO 
05E6 OOFF 



05E7 





0000 


05EB 





6941 


05E9 





6A42 


05EA 





6843 



05EB 00 0C000A22 
05E0 2843 

05 EE 00 C48005ET 
05F0 00 04000A1C 
05F2 00 7401056? 

05F4 00 65000A10 
05 F 6 00 C4000A79 

osra o 1808 

05F9 1008 
05FA 0100 

05FB 00 C4800A1C 
05FD 00 84000ACC 
05FF 00 4C180621 



a T fc. $m? 



SLA 
STO 
NOX 

STTRM LO 
A 

STO 
LOX 
LO 
STO 
LO 
STO 
BSI 
SLA 
STO 



16 

/012T 

S2E 



STTR 



LOX 

STO 

MOX 

MOX 

BSI 

DC 

DC 

WAIT 

MOX 



OC 
OC 
BSI 
OC 

OC 



MAIT8 

XPIO 
K3095 
EH* 04 

KOOFF 



KEVE OC 
STX 
STX 
STX 
STO 
STS 

LO 
STO 

MOX 

LDX 
LO 

SRA 
SLA 
STO 

KE8C2 LO 
A 
BSC 



L STBF 
L STBF1 

•♦I 
LI 
I SKIl 

1 
L TEPN 

1 1 
L PECOR 

16 
L STBF 

LI 322 
I SEIB-l 
I -I 

STTR 
I KEY 

SM33 


8 
START 



3095 
I SER 

SE002 
/OOFF 



/QQO0 

1 KEY96+1 

2 KEV974-1 

3 KEY98*1 
L KAQ 

KEV99 

I KEVE 
L KMSG 
I KEYE.l 

LI KOUT 
t KCR 



8 
8 

1 

1 KMSC 
L KONE 
L KCHK.< 



* 

READ NEXT SKELTON 

COMPUTE ADRS 

• 

SAVE 

GET PIO 

GET TERMINATION 

SET 

PUNCH EDIT 

CLEAR OISPL 



CLEAR EDIT BFft 

• 



SRC 



PROG END 



PROGRAM END 
RESTART PROG 

CONSTANTS 



SRC 



PRINTER I/O ROUTINE 



CALL 



BSI KEY 

DC MSGAO 
DC ID 



ID BIT KCVBOARO 
XOXX NO CONV 
XI XX DEC CONV 
X2XX HCX CONV 



SAVE STATUS 



FETCH MESS AORS 

POINT TO ID 

SET CARRIER RETURN 

CLEAR EBOIC COOE 
STORE IN OUTPUT AREA 
CHECK TERMINATOR 
BR IF NO MORE MESS 



PAGE m ' 22 * 22 * 1 



o 
o 

M 



8C201370 

8C2O1380 

8C201390 

8C201400 

8C20U1O 

8C201420 

8C201430 

8C20U40 

8C201450 

8C201460 

8C201470 

8C201480 

8C201490 

8C201500 

8C201510 

8C2O1520 

8C201530 

8C201540 

ec 20 1 550 

8C201560 

8C201570 

8C201580 

8C201590 

8C201600 

8C201610 

8C 20 1620 

8C201630 

8C201640 

BC20165Q 

8C201660 

8C201670 

8C201680 

8C201690 

8C20170O 

BC20171O 

8C201720 

8C201730 

BC201740 

BC201750 

8C 201760 

BC201770 

8C201780 

8C201790 

8C201800 

8C20181O 

8C201820 

8C201830 

8C201840 

8C2018S0 

8C201860 

8C201870 

8C201880 

8C201890 

8C201900 

8C201910 

8C201920 

8C201930 

8C201940 

8C201950 

8C201960 

8C201970 

BC201980 

8C201990 

8C20200C 

8C202010 

8C202020 

8C202030 

8C202040 



KB 



ID 



n 



is 



t ( 





Q 

















o 



-> n 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE ^GO SYSTEM 
4K EDIT CONTROL 



0601 
0602 
0604 
0605 
0607 
0608 
0609 
060A 
060B 
06 OC 
0600 
060E 



6208 

00 67000A50 
7101 
00 C4800A1C 
1A00 

1008 

1808 

F300 

D100 

1008 

7301 



00 4C200605 



0610 

0611 



7200 
7000 



0612 00 C4000A2C 

0614 8100 

0615 0100 

0616 00 65000A1D 
0618 00 44000768 

061A 00 65000A1C 
061C 00 74010A1C 
06 IE 700C 



061F 
0620 



6200 
70E1 



0621 00 65000A79 
062 3 00 44000768 
0625 00 C48005F7 
0627 00 4C280636 



0629 00 65000000 
062B 00 66000000 
062 00 67000000 
062F 00 CCO0OA22 

0631 2000 

0632 00 740105E7 
0634 00 4C8005E7 



0636 

0637 00 
0639 
063 A 
063B 00 
0630 
063E 
063 F 00 








1090 

C48005E7 

1004 

18CC 

D4000729 

1804 

1084 

04000724 



0641 00 44800134 
0643 00 6F00010E 
0645 00 670001DF 
0647 00 6F000A2A 

» T fc. Ml* 



***••♦••♦♦• ♦•.•♦••••♦♦♦♦•••♦*»»,,» # «»„,m„^ 



LDX 

KE8C3S LOX 

mn 

KEBC4- LO 
SRA 
SLA 
SRA 
EOR 
STO 
SLA 
MOX 
BSC 

MOX 
MOX 

• 

LO 
A 

STO 
LOX 
BSI 



2 8 
13 KTGLT 

1 t 

I KMSG 

2 
S 
8 

3 

1 
S 

3 i 
L KE8C4.I 

2 

KE6C6 

L <0NE 

I 8 

I 8 
LI KOUT 
L KTYP 



CONVffiT -CHARS TO RTT 
FETCH EBDIC CHARS 



LDX LI KOUT-I 
MOX L KMSGtl 
"OX KEBCf 



KEBC6 LDX 
KOX 



2 

KE9C3 



BR IF NOT THE CHAR 

SKIP IF 2 CHARS CNVT 

SET TERMINATOR 
GO PRINT CHARS 

POINT TO NEXT TORD 
CONVERT SECOND CHAR 



KCHK LOX LI KCR 

BSI L KTYP 

tD I KEYE 

BSC L KFRW,*£ BR IF KBO ENTRY 

*•*•«*„•*•»* ♦♦•♦♦•••♦••♦♦♦**#«»«»»****»^„, 

KEY96 LOX LI /OOOO 

KEY97 LOX L2 /OOOO 

KEY98 LOX L3 /OOOO 

t-OD L KA0 
KEY99 LOS 

NOX L KEYE, I 

BSC I KEYE RETURN EXIT 



DO CAR RET 



RESTORE STATUS 



SRC 



KFRM SLT 
LD 
SLA 
RTE 
STO 
SRA 
SLT 
STO 



16 

I KEYE 

4 

12 

L KEVFM 
4 

4 
I KEYNO 



KEY05 BSI I SKIN! 

a 

STX L3 KfWC 
* 

LOX 13 KEVIN .,,„ „„ ri „. lr 

KEYO STX L3 KRE0 



FETCH FORM NUMBER 

SAVE FORM NO 

SAVE CHAR/WD COUNT 

SET KEVIN TO FFFF 
RESET WD CT 

RESET READ AREA 



SRC 



P p i?i m - "*»!] 



2A 



^ , n 



8C202O5O 

SC202060 

8C202070 

8C202080 

8C202090 

8C2O2I0O 

8C20211© 

8C202120 

8C2O2130 

8C202140 

8C202150 

8C2O2160 

8C202170 

8C202180 

8C202190 

8C2022PO 

8C2022J0 

8C202220 

8C202230 

8C202240 

8C202250 

8C2022&0 

8C202270 

8C202280 

8C202290 

aC202300 

8C202310 

8C20232O 

SC202330 

8C202340 

8C202350 

8C202360 

8C202370 

8C202380 

SC202390 

8C202400 

8C202410 

8C2024J0 

8C202430 

8C202440 

8C202450 

8C20246© 

8C202470 

8C202480 

8C 202490 

8C202500 

8C202510 

8C202520 

8C202530 

8C202540 

8C202550 

8C202560 

8C202570 

8C202560 

8C202590 

8C202600 

SC202610 

8C202620 

8C2O2630 

8C20264O 

8C202650 

8C202660 

8C20267S 

8C202680 

8C 202690 

8C2O270O 

8C20271© 

8C2O2720 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SVSTE* 
*K EDIT CONTROL 



06*9 00 4*0007*5 

06*B 00 OCOOOA28 

06*0 00 OC000A1A 
06*F 1001 
0650 00 *C280656 

0652 100S 

0653 00 *C1006*B 

0655 70F7 

0656 00 OC00QA2A 



0658 
0659 



065A 00 



610B 
C300 
F5000A33 



06SC 00 *C1806B3 



065E 
065F 



TIFF 
70F9 



0660 00 C*000729 
0662 00 F«000'\2C 
066* 00 *C1 80670 

0666 6106 

0667 C300 

0668 00 F5000A3E 
06e>A 00 *C1806B6 



066C 
0660 
066E 
066F 00 
0671 00 
0673 
067* 

0675 

0676 00 
0678 00 
06 7 A 00 
067C 



71FF 

70F9 

C300 

F*000A31 

*C200670 

C3FC 

6201 

12*0 

F*000B7F 

**200720 

C*000A65 

7022 



0670 6108 
06 7E C300 
067F 00 F5000A2C 
0681 00 *C1806A8 
0683 71FF 
068* 70F9 



0685 

0686 

0687 00 
0689 00 
068B 
06 8C 
068D 
068E 







00 



0690 00 



0692 
0693 
069* 
0695 



6107 

C300 

F5000A*7 

*C1806B1 

71FF 

70F9 

C300 

F*000A21 

**2006CC 

6201 
C3FA 
1002 
12*0 



0696 00 F*000B7F 
0698 00 **200720 



DATE 
EC NO. 



uw 



• 


BSI 


L 


KNBY 


KEY1 

* 


XIO 


L 


KPCO 


KEY2 


XIO 
SLA 


I 


KSNS 
1 




BSC 


L 


KEY3t*Z 



SLA 
BSC 

MDX 



KEV3 

KENS LOX 
XFMS1 LO 

FOR 
BSC 



L KEY1,- 
KEY2 



XIO L KREO 



MDX 

MDX 

LO 

FOR 

BSC 

KFN2 LDX 
KFM21 LO 
EOR 
BSC 

MOX 

MOX 

LO 

EOR 

BSC 

LO 

LOX 

SLCA 

EOR 

BSI 

LO 

MOX 



1 11 

3 KREO-KREO 

LI KECOD-1 

L KDEC,*- 

1 -I 

KFMS1 

L KEVFH 

L KONE 

L KFMO.+- 

•••********** 

1 6 

3 KREO-KRED 
LI KECAO-1 
L KHEX,»-„ 



1 -1 

KFM21 
3 KREO-KREO 
KECPO 
KFMO.Z 
-* 
1 


K8000 
KERR, I 
KTPLT 
KPNE 



WAIT FOR NOT BUSY 
SET KEYBOARD PROCEED 
SENSE STATUS 

GO READ KEYBOARD 

BR IF NOT PROCEED 



READ KEYBOARD 

CHECK FOR DEC OR SPC 
FETCH CHAR READ 

BR IF DEC OR SPACE 



CHECK FOR FORM 

BRANCH IF FORM 1 

••#••****•• •**»****** 

CHECK FOR HEX 
FETCH CHAR READ 

BR IF ALPHA 



FETCH CHAR REAO 

BR IF NOT PERIOD 
A PLUS OR MINUS 



BR IF NOT ♦ OR - 



•****»*»*** 
KFMO LOX 
KFM01 LO 
EOR 



BSC 

MDX 
MOX 

• 

LOX 
K. : N02 LO 
FOR 
BSC 
MOX 
MDX 
LO 
EOR 
BSI 



************* 

1 8 

3 
LI KN-1 
L KMDXt*- 

1 -1 
KFMOl 

1 7 



3 

LI KAL-1 
L KMPX,*- 

1 -1 
KFM02 

3 
L KL 
L KSPC.Z 



* «****»#***** ******** 
CHECK UC SP CHRS 
CET CHR REAO 
CK AGAINST T8L 
CHAR FOUND 
OECR IX 1 
LOOP 

CK LC SP CHRS 

CET CHR REAO 

CK AGAINST TBL 

CHARACTER FOUND 

OECR IX 1 

LOOP 

GET CHR READ 



LOX 2 1 
LD 3 -6 

SLA 2 

SLCA 2 

EOR L K8000 
BSI L KERR,! 



BR IF NOT 1 OR ZERO 
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8C 202730 

8C2027*O 

8C202750 

8C202760 

8G202770 

8C202780 

8C202790 

8C202800 

8C202810 

8C202820 

8C202830 

8C2028*0 

8C202850 

8C202860 

8C202870 

6C202880 

8C202890 

8C 202900 

SC202910 

8C202920 

8C202930 

8C2029*0 

8C 2 02950 

8C202960 

8C2029T0 

8C202980 

8C202990 

8C203000 

8C203010 

8C203020 

8C203030 

8C2030*0 

8C2030SO 

8C203060 

8C203070 

8C203080 

8C203090 

8C203100 

8C203110 

8C 203120 

8C203130 

8C203U0 

8C203150 

8C203160 

8C203170 

8C203180 

8C203190 

8C 2 03200 

8C203210 

8C203220 

8C203230 

8C2032*0 

8C203250 

8C203260 

8C203270 

8C203280 

8C203290 

8C203300 

8C203310 

8C203320 

8C20333O 

8C2033*0 

8C203350 

8C203360 

8C203370 

8C203380 

8C203390 

SC2 03*00 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE ISOO SYSTEM 
*X EDI? CONTROL 



069A 
0696 
069C 
0690 00 
069F 00 
06AJ 00 
06A3 
06A* 00 
06A6 00 



06A8 
06A9 00 
06AB 00 
06AD 
06AE 
06AF 
06 BO 
06B1 
06B2 






G 




C3FA 

1802 

03FA 

C*000A55 

EC00OA2C 

&5OO0A1O 

0100 

**000768 

*C0006*7 

C300 

F*000A32 

*C2006B1 

C300 

180C 

100C 

0300 

7111 

7001 



06B3 7118 
06B* *003 
0685 7091 



06B6 7123 
06B7 70FC 



06B8 
06B9 
068 A 
06BB 
06BC 00 



0000 
C300 
EBFF 
180* 
*C9806B8 



06BE 00 C5000A*F 
06C0 00 EC000A2C 
06C2 00 65000A10 
06C* 0100 
06C5 00 **000?&8 



06C7 00 7*010106 
06C9 7301 

06CA 00 *C8006B8 



06CC OOCO 

06CD C300 
06CE 00 F*000A*F 
0600 00 *C2006E8 

0602 00 C*00010E 
06D* 00 9*0007B9 
0606 00 **280720 

0608 C3FF 

0609 180* 
06DA 00 *C18060F 
060C 00 7*01010E 



fc^o. imw 



LD 
SUA 

STO 
LO 
KPNE OR 



S -* 
2 

$ -* 

L KLMT 

L KONE 



LOX LI KOUT 

STO 1 

L KTYP 

L KEYO 



63! 
BSC 

* 

X«OX LO 3 

EOR L KECPO*! 

ESC L KMPX,? 

LO 3 

SRA 12 

SLA 12 

STO 3 

KMPX MDX 1 KN-KECGD 

HDX KOECI 

*********** ••«*********«*****»»*» # *,„,„ %#Ml , ><| 
1 KECOD-KECGD CORCT XR1 



SRANCH 

FETCH CHAR 

BR IF NOT ♦ SIGN 

MAKE ♦ ■ /SOOO 

AOJ IX 1 



KDEC MDX 

* 

KOECI BSI 
MDX 

* 

KHEX MDX 
MOX 



KSTO GO STORE ♦ PRT SRC 

KEY0 RETURN FOR NEXT 



go pr;nt a - f 



1 KECAD-KECGO 
KDEC1 
♦•♦••♦•*»***»*»*.********.,»*.»*,»,„ t „^„^ 

KSTO DC 
LO 



OR 
SRA 



/©COO 
3 
3 -1 

* 



STORE AND PRINT RTN 

BR IF SECOND SPACE 
FETCH TYPR CHAR 

TYPE CHARACTER 
UPDATE KEYBOARD BUF 

«»„„ •• RETURN TO USER 

**.******..** **•**• **.**«,***,„** # „ # ,^ < „ tMi 

SPECIAL CHAR CHECK 



BSC I KSTO,*- 

LO LI KTGLT-1 

OR L KONE 

LOX LI KOUT 

STO 1 

BSI L KTYP 



MDX 
MDX 

BSC 



L KlNCfl 
3 1 

KSTO 



KSPC DC 

LO 

EOR 

BSC 

a 

LO 

S 

BSI 

LD 

SRA 
BSC 

MDX 



/OOOO 

3 

L KCNA 
L KSPC5.2 

L KIWC 
L K0002 
L KERR S *Z 

3 -1 

* 
L KSPC2,*- 
L KIMC<»1 



FETCH KEY CHARACTER 

8R IF NOT A COM*!* 

8R IF COM«A TOO SOON 
TETCH LAST ENTRY 
BR IF SPACE LAST 
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8C203*10 

3C203A20 

8C203*30 

8C203**0 

8C?03*50 

8C203*60 

8C203*70 

8C203*80 

8C203*90 

8C203500 

8C203510 

8C203520 

8C20353O 

8C2035*0 

8C203550 

8C203560 

8C203570 

8C203580 

8C203590 

8C203600 

8C203610 

8C203620 

8C203630 

8C2036«O 

8C203650 

SC203660 

8C2036*0 

8C203680 

8C203690 

8C203700 

8C203710 

8C203720 

8CZ03730 

8C2037*0 

8C203750 

8C203760 

8C203770 

3C203780 

8C203790 

8C203800 

8C20381O 

8C203820 

8C203830 

8C2038*0 

8C 203850 

8C203860 

8C203870 

8C203880 

8C2Q3890 

8C203900 

8C203910 

8C203920 

8C203930 

8C2039*0 

8C203950 

8C2039&0 

8C203970 

8C20398O 

8C203990 

8C20«000 

SC204010 

8C20*020 

8C20*030 

8C20*0*0 

BC20*050 

8C 20*060 

8C20*07O 

8C 20*080 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTER 
4K EDIT CONTROL 



060E T301 

06DF 00 C40Q0A2C 
06 El 03FF 

06E2 00 65000700 
06E4 00 44000768 

06E6 00 6*000647 



06E8 C300 
06E9 00 F4000A46 
06EB 00 4C200703 



S +1 

I KONE 
3 -I 

LI KCOMA 
L KTVP 

I KEYO 



MDX 
KSPC2 LO 
STO 

LDX 
8SI 

LOX 

KSPC5 LD 3 

EOR L KERSE 



SET FIELD PROTECT MK 

GO PRINT * OR- 
RETURN FOR MORE CHR 



8SC L KSPC9,2 



FETCH KEY CHARACTER 
BR IF NOT ERASE CHAR 



06ED 00 C400010E 




LO 


L 


KIWC 


06EF 00 4C080647 


» 


BSC 


L 


KEYO,* 


06F1 C3FF 


LO 




3 -1 


06F2 00 4C040647 




BSC 


L 


KEYO.E 


06F4 1801 




SRA 




1 


06F5 00 4C0406F6 




BSC 


L 


KSPCfc.e 


06F7 73FF 




MDX 


3 -i 


06F8 00 74FF010E 




MOX 


L 


KIWC. -1 


06FA 1000 




NOP 






06FB 00 65000702 


KSPC6 LOS 


L! 


KBKSP 


06F0 406A 


* 


BSI 




KTYP 


06 FE 00 4C000647 


BSC 


L 


KEYO 




»*♦♦***»**»»**♦*»«* e«i*fj 


0700 8000 


KCOHA DC 




/8000 


0701 8101 




DC 




/8101 


0702 1101 


KBKSP OC 

• 

KSPC9 LO 




/1 101 


0703 C300 


3 





0704 00 F4000A45 




EOR 


L 


KRENT 


0706 00 44180720 


• 


BSI 


L 


KERR,*- 


0708 C300 


LD 


3 


KREO-KRED 


0709 00 F4000A4T 




EOR 


L 


KENOK 


0708 00 4C200647 


• 


BSC 


I 


KEYO, 2 


070D 00 C40001DE 


LD 


L 


KIWC 


070F 901A 




S 




KEVNO 


0710 00 4428072D 




BSI 


L 


KERR,*Z 


0712 00 658001DE 




LOX 


11 


KIWC 


0714 00 C500010E 


KSPCA 


LD 


LI 


KIWC 


0716 1804 




SRA 




4 


0717 1004 




SLA 




4 


0718 00 0500D1DE 




STO 


L! 


KIWC 


071A TIFF 




MDX 


1 


-I 


071 B 70F8 


• 


MDX 




KSPCA 


071C C3FF 


• 
• 


LD 


3 


-I 


071D 1804 


SRA 




4 


071 E 00 4C200725 




BSC 


L 


KSPCE.Z 


0720 T3FF 




MDX 


3 


-1 


0721 00 74FF01DE 




MOX 


L 


KIWC, -I 


0723 7001 




MDX 




KSPCE 


0724 4008 




BSI 




KERR 


0725 COIE 


ks»ce 


LO 




KNEG 


0726 0300 




STO 


3 





0727 00 44000AA0 




BSI 


L 


LOOIT 


0729 OOOO 


KEYFM 


DC 




/OOOO 


072A OOOO 


KEVNO 


DC 




/OOOO 


0728 00 4C000629 


EXIT 


BSC 


L 


KEY96 




*****•«*•»*»•*«»»•*»»**« 


?c- t no. tmr 











8R IF WORD COUNT ZERO 

CHECK PROTECT BIT 

BR IF LAST WORO PROTO 

DO BKSP OVER PERIOO 
DECREASE WORD COUNT 



DO A BACKSPACE 

RETURN" 

COMMA RESPONSE 



SRC 



FETCH KEY CHAR 

BR IF ERASE FIELD 

FETCH CHAR PEAO 

BR IF NOT EOF KEY 

FETCH WORO COUNT 

TOO FEW ENTRIES 
CLEAR FItLO PROT BIT 



REMOVE SP BEFORE 
TERMINATE 

BR IF NO SPACE THERE 
DECREMENT WORD COUNT 



SET TERMINATION 

LET LLOYD DO IT 
FORM NUMBER 
CHARS / WORO 
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8C 204090 

8C204100 

SC20411® 

8C 2 041 20 

8C204130 

8C204140 

8C2041S0 

8C204160 

8C204170 

8C204180 

8C204190 

8C204200 

8C20421Q 

8C 204220 

8C204230 

8C204240 

8C2042S0 

8C 204260 

8C204270 

8C 204280 

8C204290 

8C2 04300 

8C 2043 10 

8C204320 

8C204330 

8C204340 

8C204350 

8C204360 

8C204370 

8C204380 

8C204390 

8C204400 

8C204410 

8C204420 

8C204430 

8C204440 

8C204450 

8C204460 

BC204470 

8C204480 

8C204490 

8C204500 

8C204510 

8C204520 

8C204530 

6C204540 

8C204530 

8C204560 

8C204570 

8C204580 

8C204590 

8C204600 

8C204610 

8C204620 

8C204630 

8C204640 

8C2046S0 

8C204660 

8C204670 

8C204680 

8C204690 

8C204700 

8C204710 

BC 204720 

8C204730 

8C204740 

8C204750 

8C204760 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOK THE 1800 SYSTES 
4K EDIT CONTROL 



072 OOOO 
072E CO 65Q0QA7A 

0730 403? 

0731 7301 

0732 00 7401010r 

0734 6 IFF 

0735 C3FF 

0736 00 4C04064? 

0738 COOS 

0739 0300 
073A 73FF 
073B 00 74FF01DE 
073 D 70F7 

073E 00 C40001DE 

0740 00 4C100647 
0742 00 4C000641 
0744 FFFF 



KERR 



DC 

LOX 

BS! 



MOX 

MDX 
LDX 
KERR1 LO 
BSC 

LD 
STO 

MOX 
MDX 
MDX 



11 



0745 
0746 
0747 
0749 
074B 
0T4D 
074F 
0750 
0752 
0753 
0754 
0756 



OOOO 
6A1B 
00 6600000A 
00 6E000767 
00 66007FFF 
00 OCOOOAIA 
1004 
00 4C 100761 
72FF 
70F9 
00 74FF0767 
70F4 



LO L 

BSC L 

BSC L 

KNEG DC 

KNBV DC 
STX 

LDX 
STX 

KNBYO LOX 

KNBY1 XIO 

SLA 

BSC 
MDX 

MDX 
MDX 
MDX 



/OOOO 

KFELD 
KTVP 

1 

KIWCfi 

-i 
-I 
KEYO.E 

KNEG 



-1 

KIWC.-l 

KERR1 

KIWC 
KEYO,- 
KEVOG 
-1 



PRINT FlflD CANCELL0 
TYPE SRC 



FRASE TO FIELD MARK 
BR IF FIELD HARK 



DECREMENT WORD COUNT 



CONSTANT MINUS ONE 



2 

L? 

L2 
LZ 
L 



0757 00 6600075D 
0759 00 6E000003 
075B 3002 
075C 70EA 

075D 00 6600012C 
075F 00 6E000003 

0761 00 66000000 
0763 00 0C000A24 
0765 00 4CS00745 
0767 OOOO 



LDX 
STX 
WAIT2 WAIT 

MOX 
« 

KNBY4 LDX 
STX 

KN3V5 LDX 
XIO 
BSC 

KTIME DC 



12 
L2 

1.2 
L 

I 



/OOOO 

XNBV5*1 

10 

KTIME 

/7FFF 

KSNS 

4 

KNBY5,- 

-1 

KNBVi 

K T iME,-l 

KNBYO 

KNBY4 
3 

2 

KNBV* 2 

300 
3 

/OOOO 
KRDV 

KN8V 
/OOOO 



076 8 
0769 00 


OOOO 
6D000A26 


KTVP 
KTVP1 

• 
KTYP5 

WAITl 

• 


STX 


LI 


/OOOO 
KPRT 


076B 


40D9 


SS! 




KN8V 


076C 00 
076 E 
076 F 00 
0771 


OCO00A24 

1005 

4C 100773 

3001 


XIO 
SLA 
BSC 

WAIT 


i 
t 


KROV 

s 

KTYP6,- 
1 


DATE 
EC NO. 


SIS!* 











TYPR NOT BUSY RTN 

SCT TIME COUNTER 

CHECK BUSV 

BR IF NOT BUSV 

CHECK AGAIN 
DECREMbNT TIMER 

TYPR HUNG UP BUSY 
1816 HUNG UP BUSY 

RESTORE RESTART 



EXIT 
REJ.ET 

TIME COUNTER 
ft******************** 



PRINTER OUTPUT RTN 
XR1 » AORS OF MESS 



SAVE PRINTING ADOR 
4AIT OFR NOT BUSV 
CHECK REAOV 

BR IF READY 

PRINTER OUT OF FORMS 



PART NO. 2242261 
PAGE «* 



1 



8C204770 

8C204780 

8C204790 

8C204800 

8C204810 

8C2048/0 

8C204830 

8C 2 048 40 

8C204850 

8C204860 

8C204870 

8C204880 

8C204890 

8C204900 

8C204910 

8C20&920 

8C 204930 

8C204940 

8C204950 

8C204960 

8C204970 

8C204980 

8C 204990 

8C205000 

8C205010 

8C20502O 

8C205030 

8C20S040 

8C205050 

8C205060 

8C205070 

3C205080 

8C205090 

8C205100 

8C205110 

8C205120 

8C205130 

8C205140 

8C205150 

8C205160 

8C205170 

8C205180 

8C205190 

8C205200 

8C205210 

8C205220 

8C205230 

8C205240 

8C2Q5250 

8C205260 

8C205270 

8C205280 

8C205290 

8C205300 

8C205310 

8C205320 

9C205330 

8C205340 

8C2OS350 

8C205360 

8C205370 

8C20S380 

8C205390 

8C205400 

8C205410 

BC205420 

8C205430 

8C2O5«*0 
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IBM MAINTENANCE DIASNB5TIC PROGSAH FOR THE 1BOO SYSTEM 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SfSTEH 
4X EOIT CONTROL 
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07T2 70F» 



HOX 



XT VPS 



( 
f 

r 



.r 



0773 00 0C000A26 


KTVP6 


XIO 


L 


*PRT 


OUTPUT ONE CHAR 


0775 CIOO 




to 


t 







0776 00 4C840768 


* 


8 St 


I 


KTVP.E 


EXIT IF HS6 PRIM 


0778 7101 


HOX 


I 


1 




0779 70EF 




HOX 




KTTPt 




077A 0000 


CKVNE 


DC 









077B 00 C40001DF 




10 


L 


KEVIN 


GET ENTRV 


0770 F0I8 




EOR 




YES 


IS IT * LC 


077E 00 4CI 80794 




BSC 


L 


CKYNO,*-- 


YES 


0780 00 C4000IDF 




10 


L 


KEVIN 


GET ENTRY 


0782 F014 




EOR 




YE SI 


IS IT Y OC 


0783 00 4C 180794 




BSC 


I 


CKYNO.*- 


YES 


0785 00 C400010F 




LD 


L 


KEYIN 


GET ENTRY 


0787 F010 




EOR 




NO 


IS IT N LC 


0788 00 4C1 80792 




BSC 


L 


CKYNl ,♦- 


VES 


078A 00 C40001DF 




to 


t 


KEVIN 


GET ENTRY 


078C FOOC 




EOR 




N01 


IS IT N UC 


0780 00 4C 180792 


• 


BSC 


L 


CKYNlt*- 


VES 


078F 00 44800132 


6SI 


I 


SER 


NOT Y OR N 


0791 0B88 


• 
CKVN1 


OC 




PCKBE 




0792 00 7401077A 


HOX 


I 


CKYNEtl 


I NCR RETURN 


0794 00 4C80077A 


:kyno 


BSC 


I 


CKVNE 


EXIT 


0796 2020 


VES 


OC 




/2020 


LOWER CASE V 


0797 8060 


VES1 


OC 




/8060 


UPPER CASE V 


0798 4100 


N3 


OC 




/4100 


LOWER CASE N 


0799 8120 


N01 

• 


OC 




/8120 


UPPER CASE N 




• 

• SET UP 


RETURN ON ERROR 


079A 0000 


SSUEE 


OC 




/OOOO 




079 B COFE 




to 




SSUEE 




079C 901C 




S 




K0002 




0790 00 04000441 




STO 


1 


SRTRY 




079F 00 4C80079A 




BSC 


1 


SSUEE 




079 A 


SSEUR 


EQU 




SSUEE 






• 






CHECK 


IF INTEKRUPT LEVEL 




• 






IS TO 


GREAT 


07A1 0000 


SUE 


OC 








07A2 00 C400013E 




LD 


L 


BINRV 




07A4 1008 




SLA 




8 




07AS 8008 




CMP 




SI 700 




07A6 7002 




HOX 




SILER GREATER. ERROR 


07A7 7004 




HOX 




SILl 




07A8 7003 


• 
SUE* 


HOX 




SILl 




07 A9 00 44800132 


BSI 


1 


SER 




07AB OBAD 


• 

SILl 
• 
S1700 

01 


DC 




SE002 




07AC 00 4C8007A1 


BSC 


f 


SILE 




07AE 1700 


OC 




/1T00 






• 

* 






CHECK 


IF ILSW IS VALID 


07AF 0000 


StlSE 


OC 




/OOOO 




07B0 00 C400013E 




LO 


t 


BINRV 




0782 1004 




SLA 




4 




07B3 B004 




CHI- 




SOOFO 




07B4 70F4 




HOX 




SILER 


ERROR 


07B5 1000 


• 
• 


NOV 










SE 



SRC 



f^No. ttmt b 



BC 205*50 

8C205460 

8C205470 

8C205480 

8C205498 

8C205500 

8C20551© 

8C20S520 

8C205530 

8C205540 

8C2055S0 

8C20S560 

8C205570 

8C205580 

8C 205590 

8C2 05600 

8C205610 

8C 205620 

8C205630 

8C205640 

8C205650 

8C205660 

8C205670 

8C2056B0 

8C205690 

8C205700 

8C2057I0 

8C 20 5720 

SC205730 

8C205740 

8C205750 

8C205760 

8C205770 

8C205780 

8C205790 

8C2 05800 

8C205810 

8C205820 

8C205830 

8C205840 

8C205850 

8C205860 

8C205B70 

8C205880 

8C205890 

8C 205900 

8C20S910 

8C205920 

8C205930 

8C20S940 

8C205950 

8C205960 

8C205970 

8C205980 

8C20S990 

8C206000 

8C206010 

8C 206020 

8C206030 

8C206040 

8C206050 

8C206060 

8C206070 

8C206080 

8C 206090 

8C206100 

8C206110 

8C206120 



PROG ID 



PAG 



O 





o 






n 

r, 



08C2-0 



n 


"> 


n 


~) 


O 


O 


n 


n 



0786 00 


4C8007AF 


S!A 

• 
SOOFO 


ssc 


I 


SILSE 




0788 


OOFO 


DC 




/O0FO 




07B9 


0002 


K00G2 

9 


sc 




2 








• 






CHECK CHANNEL VALUS 


07EA 


OOOO 


SCHE 


DC 




/oooe 




07BB 00 


C400013E 




LO 


i 


BINRV 




07BD 


BOOC 




CMP 




S0008 




078E 


7002 




HOX 




SCHER 




07BF 


7005 




HOX 




SCHi 




07C0 


7004 


* 
SCHER 


HOX 




SCH1 




07C1 


F007 


EOR 




SOOOF 




07C2 00 


4C1807C5 




BSC 


i 


SCH1,*~ 




07C4 


70E4 


ft 


MUX 




SILER 


ERROS 


07C5 00 


C400013E 


SCH1 


LD 


L 


BINRV 




07C7 00 


4C8007BA 




BSC 


1 


SCHE 




07C9 


OOOF 


SOOOF 

• 
S0008 


OC 




/OOOF 




07CA 


0008 


OC 




/OO0S 




07CB 


OOOO 


SERE 


OC 




/0009 




07CC 00 


C48007CB 




LO 


I 


SERE 


FETCH ERROR ADDRESS 


07CE 


0002 


• 


STO 




SER1 




07CF 00 


4480012C 


8 SI 


I 


KEY 




0701 


OOOO 


SES1 


OC 




/OOOO 


ADDRESS 


0702 


OOOO 


s 


OC 




/OOOO 


SO 


07D3 00 


4C800441 


• 
• 
» 

9 


BSC 


I 


SRTRV 

SET UP 


ROUTINE 

X2» CARO NUHBER 


0705 


OOOO 


SECSE 


OC 









0706 00 


C 4800705 




LO 


I 


SECSE 


GET HSG AORS 


0708 


D024 




STO 




siwa 


SAVE 


0709 


6A24 


SE1 


STX 


i 


SECB 


SET CD NO 


070A 


6924 




STX 


I 


CPID 


SET PID 


070B 


6B24 




STX 


3 


NOEN 


SET NO OF ENTRIES 


070C 


C024 




to 




STBF1 


GET EDIT IMAGE AD8S 


0700 00 


84000440 




A 


L 


STBF 




070F 


0003 




STO 




SE2*I 


SET 


07E0 00 


658007F0 




LOX 


li 


S1WB 


IX 1 « HSG SDRS 


07E2 00 


67000000 


SE2 


LDX 


L3 





1X3" STARTING ADRS 


07E4 00 


66800800 




LDX 


12 


NOEN 


IX 2 - NO ENTRIES 


07E6 


cots 




LO 




CPID 


GET PID 


07E7 


0300 




STO 


3 





SET 


07E8 


C015 




LO 




SECB 


GET CD NO 


07E9 


0301 




STO 


3 


I 


SET 


07EA 


C015 




LO 




NOEN 


GET NO ENTRIES 


07EB 


0302 




STO 


3 


2 


SET 


07EC 


7303 




MOX 


3 


3 


INCR IX 3 


07E0 


CIOO 


SE3 


LO 


I 





GET AN ENTRY 


07EE 


0300 




STO 


3 





SET 


07EF 


7101 




MOX 


I 


s 


INCR MSG ADRS 


07F0 


7301 




HOX 


3 


1 


INCR BFR ADRS 


07F1 


T2FF 




MDX 


2 


-1 


DECR NO ENTRIES 


07F2 


70FA 




MOX 




SE3 


LOOP 


07F3 00 


C4000440 




LD 


L 


STBF 




07F5 


800C 




A 




K0003 


ADD 3 


07F6 


8009 




A 




NOEN 


ADD NO ENTRIES 


07F7 00 


D 4000440 




STO 


L 


STBF 




07F9 00 


74010705 




MDX 


I 


SECSE 1 1 


INCR RETURN 


07FB 00 


4C800705 




BSC 


I 


SECSE 


exit 



SF 



S£ 



tt T fc. imt* 



8C206S30 
BC206140 
SC20&150 
8C206160 
8C206170 
8C206180 
8C206190 
8C2062CO 
8C20621S 
8C206220 
8C206230 
8C206240 
8C206250 
8C206260 
BC2062T0 
8C206280 
BC 206290 
8C2063OO 
8C2O6310 
8C206320 
8C206330 
8C206340 
8C206350 
8C206360 
8C206370 
8C206380 
8C 206390 
8C206400 
8C2064I0 
8C206420 
8C206430 
8C206440 
8C2064 50 
8C206460 
8C206470 
8C206480 
8C206490 
3C206500 
SC2065I0 
8C206520 
8C206530 
8C206540 
8C206550 
8C206560 
8C206570 
8C206580 
8C206590 
8C206600 
8C2066S0 
8C 206620 
8C206630 
8C206640 
8C206650 
8C206660 
8C206670 
3C20&680 
8C206690 
8C 206700 
8C206710 
8C206720 
8C206730 
8C206740 
8C206750 
8C206760 
8C206770 
8C206780 
8C206790 
BC206800 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
*K EDIT CONTROL 



07FD 
07FE 
07FF 
0800 
080! 
0802 



0803 
0B04 
0806 
0808 
080A 
0806 





00 

00 

00 







OBOC 00 



0000 
0000 
0000 
0000 
0*42 
0003 

0000 

67000258 

C400043D 

0700010E 

73FF 

70FC 

4C 800803 



StUB DC 

SECB DC 

CP1D DC 

NOEN DC 

STRF1 OC 

K0003 DC 











SEIB 

3 



NSG ADRS 
CARD NO 
FID 

NO ENTRIES 

CD BFR ADRS 
CONSTANT 3 



• ***»••» •*»**»«*»*»»»♦*«*«,*, »* e# » e<lt> , #> , M<s 



KIN1 DC 
LOX 
10 

SK1NA STO 
MDX 
MDX 
BSC 




13 600 

L TERN 
13 KIWC 
3 -I 

SKINA 
I KIN1 



SET IXING 

GET FFFF 

SET KEVIN AREA 

DECR IX 3 

LOOP 

EXIT 



SE 



•***•»•***«**»««*,» »**#•*•**♦»*♦»•»*».»»«,»»»* 



OBOE 0000 

080F 00 67000258 

0811 1010 

0812 00 D7Q0"UDE 

0814 73FF 

0815 70FC 

0816 00 4C80080E 



0B18 
0819 
081 A 
081B 



0000 
0862 
COFO 
0005 



081C 00 0*000885 
08 IE 00 COOCBCD 
0820 7005 



0821 

08 22 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

082A 

082 B 00 

082 D 00 

082F 

08 30 00 

0832 

0833 
















0000 

0859 

C05F 

0060 

C05E 

D01F 

284F 

6949 

6A4A 

6848 

67800821 

C7000OO0 

D04E 

C 7800001 

804C 

D04C 



0834 1810 

0835 00 04000150 



KINO DC 
LOX 
SLA 

SKINS STO 
MDX 
MDX 
SSC 

OKYB DC 
STD 

LD 
STO 
STO 
LD 

MDX 

• 

HKIB DC 
STO 
LO 
STO 
LD 

PHKYD STO 
STS 
STX 
STX 
STX 
LOX 
LO 
STO 
LO 
A 
STO 





L3 600 
16 

L3 KIWC 
3 -1 
SKINB 
I KINO 



SET IXING 

CLEAR ACCUH 
CLEAR KEVIN AREA 
OECR IX 3 
LOOP 
EXIT 
DEC KEYBOARD TO BINARY RT 



SX 



SE 



sx 





PHKXl 

OKYB 

HKVB 

PHDSW 

P0KX1 

PHKVD 



SAVE A ♦ Q 



SET HEX-DEC SW « DEC 

CONSTANT 10 

ENTER COMMON SECTION 



HEX KEYBOARD TO BINARY RT 





PHKXl 
PHKX7 
PHDSW 
PHKX8 
PHKYC 
PHKYS 

1 PHKY6*1 

2 PHKY7*! 

3 PHKY8*l 
13 HKYB 

L3 

PHKX2 

13 1 

PHKX3 
PHKX4 



SAVE A ♦ q 

CONSTANT IERQ 

SET HEX-DEC SH « HEX 

SET CONV CK 
SAVE STATUS 
SAVE XI 
SAVE X2 
SAVE X3 



SAVE CHAR/WORD 
GET AOOR OF DISP 
COMPUTE START ADDR 



SRA 

STO 



16 

BMC 



INITIALIZE BINRY BUFFER 



RESET WORD COUNT 

CONVERT NUMBER TO HEX 

* ANO STORE IN BINARY BUF 



0837 00 
0839 00 
083B 
083C 
0830 00 
083F 00 
0841 00 








6680013D 

76000130 

6A0C 

6A16 

6580087E 

75800880 

6780O87E 



PHKY5 LOX 
MOX 
STX 
STX 
LOX 
MOX 
LOX 



12 BWC 

L2 BINRY-1 
2 PHKV1*! 
2 PHKV3*! 
II PHKX2 
II PHKX4 

13 PHKX2 



SET X2 TO NEXT 

» AVAILABLE SPACE 



SET XI TO STARTING 
* ADDR ♦ NUM CHAR/WD 
SET X3 TO CHJR/WD 



ic* T So. xmv 



PART NO. 
PAGE 



8C2068I© 

8C2O6820 

8C2O6830 

8C2O6840 

8C 2068 50 

%206860 

8C 206370 

8C206880 

8C20689© 

8C206900 

8C206910 

8C206920 

8C206930 

8C206940 

8C 206950 

8C206960 

8C206970 

8C 206980 

8C 206990 

8C207000 

8C207010 

8C 207020 

8C207030 

8C207040 

8C207050 

8C2O7O60 

8C2070T0 

8C207080 

8C207090 

8C2O71O0 

8C207110 

8C207120 

8C207I20 

8C207140 

8C207150 

8C207160 

8C207170 

8C20T180 

8C207190 

8C207200 

8C207210 

8C207220 

8C207230 

8C207240 

8C207250 

8C207260 

8C207270 

8C207280 

8C207290 

8C207300 

8C20T310 

8C 207320 

8C207330 

8C207340 

8C207350 

8C207360 

8C207370 

8C207380 

8C207390 

8C207400 

8C207410 

8C207420 

8C2O7430 

8C207440 

8C ?07450 

8C207460 

8C207470 

8C 20 74 80 



2242261 

6 



VS& 



ID 






C 
















o 





o 


~\ 


(- 


M 


n 


o 


-i 


,- 



o 
o 



08C2-0 



n 

n 


n 
o 



n 
O 

o 



C ( 



( ( ( ( 



( ( ( C 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1000 SYSTEM 

*K EDIT CONTROL. 



0645 6 
0844 00 
0846 
084 7 00 
0849 
0S4A 
084B 
084C 00 
084E 









C100 

44000806 

0010 

07000000 

TIFF 

73FF 

70F7 

74000885 

7037 



084F 00 

0851 

0852 00 
0854 
0855 
0856 
0857 
08 58 00 
08 5 A 
085B 
085C 
0850 
08 5E 
085F 
0860 
0861 00 
0863 00 




















673008TE 

10A0 

C 7000000 

1884 

73FF 

70FB 

63FC 

7T80087E 

1884 

7300 

7001 

7002 

7301 

70FA 

1800 

D6000001 

7401 0130 










0865 
0866 
0B67 
0868 
0869 00 
0866 
086C 
0860 
086 E 



08 6F 00 
0871 00 
0873 00 
08 75 00 

0877 

0878 

0879 00 



coie 

801A 

8018 

0017 

67800880 

C300 

F015 

4820 

70C8 



74020821 

65000000 

66000000 

67000000 

2000 

C803 

4C800821 



08 7C 
08 7C 
08 7E 
087F 
0880 
0881 
0882 
0883 
0884 
0885 



0000 
0002 
0000 
010E 
0000 
0001 
FFFF 
0000 
0010 
0000 



0886 10A0 



tt T fc. gisist* 



PHKY2 LO 
SSI 
PHKYC OC 
PHKY1 STO 
MOX 
MDX 
MOX 
MDX 
MOX 

» 

LDX 
SLT 

PHKY3 LO 
SST 
MOX 
MOX 
LDX 
MDX 

PHKY4 SRT 
MDX 
MOX 
MOX 

PHKY9 MOX 
MOX 
RTE 

PH<VF STO 
MDX 

# 
* 
PHKYH LD 

A 

a 

STO 

LOX 
LO 

EOR 
BSC 
MDX 



L3 
i 

5 




PCKB 

16 



-1 

-I 

PHKYS 
PHOSW, 
POKY! 



GET WMBE8 
CONVERT TO BINARY 
IIM CK « 16 OR 10 
PLACE IN eiNRY BUFF 

SKIP WHEN DONE 

CK ^EX-DEC SM 

BRANCH TO DEC RT 



PACK BINARY 



PHKY6 
PHKV7 

PHKY8 
PHKYS 



PHKXl 

PHKX2 

PHKX3 

PKKX4 

PHKX5 

PHKX6 

PCKX7 

PHKX8 

PHOSW 

• 

» 



POKYl SLT 



MOX 
LOX 
LOX 
LDX 
LOS 
LOD 
8SC 



BSS 
BSS 

OC 

OC 
OC 
OC 
DC 
OC 
OC 
OC 



13 PHKX2 

32 
L3 
4 
3 -1 

PHKYS 
3 -4 
13 PHKX2 
4 
3 

PHKYf 
PHKY9*2 
3 1 

PHKY* 
16 
L2 1 
L BWC.l 



SET X3 TO CHAR/WO 



RIGHT JUSTIFY 



PLACE IN BINRY BUFF 
BUMP WORD COUNT 



PHKX2 
PHKX5 
PHKX4 
PHKX4 
13 PHKX4 
3 

PHKX6 

2 

PHKYS 



8UMP TO NEXT KEY1N FIFLO 

GET CHAR/WD 

ADD ONE FOR SPACE 



CK FOR TERMINATOR 
SKIP IF FOUND 
GET NEXT NUMBER 



EXIT FROM RT 

L HKYB*t 

LI RESTORE RESS 

12 
L3 

a 

PHKXl 
1 HKVB EXIT FROM SUBRT 





2 



KEVIN-1 



1 

/FFFF 



16 

S 



SAVE A ♦ 
CHAR PER WORD 

STARTING AODR 
CONSTANT 1 
CONSTANT FFFF 
CONSTANT 
CONSTANT 16 
HEX-DEC SWITCH 



CONV NUM TO DEC AND STORE 
* IN BINARY BUF 



ss 



C C < 



««T .0. M«.>« 



8C207490 

8C207500 

8C207510 

8C207520 

8C207530 

8C207540 

8C207550 

8C207560 

8C207570 

8C207580 

SC207590 

8C2Q7600 

8C207610 

8C207620 

8C207630 

8C207640 

8C207650 

8C2Q7660 

8C207670 

8C20T680 

8C207690 

8C207700 

8C207710 

8C207720 

8C2O7730 

8C2077«0 

8C2O7750 

8C207760 

SC207770 

8C207780 

8C207790 

8C207800 

8C707810 

8C207820 

8C207830 

8C207840 

8C207850 

8C207860 

8C207870 

8C207880 

8C2Q7890 

8C207900 

8C2O79S0 

8C20T920 

8C 207930 

8C2O7940 

8C20795© 

8C207960 

8C20T970 

8C20798Q 

8C 207990 

8C208000 

8C208010 

8C208020 

8C208030 

8C208040 

8C208050 

8C208060 

8C208070 

BC208080 

8C208090 

8C208100 

8C20BU0 

SC20812© 

6C208130 

8C208140 

8C2Q81S0 

8C 208160 



PROS ID 



Pfi 



osc2-a 
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f 
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IBM MAINTENANCE OIAGNUSTIC PROGRAM FOR THE 1800 SYSTEM 
4K EDIT CONTROL 



0887 DB40 


STD 

• 


POKWA 


2ER0 OUT WORK AREA 




• 
* 


CK FOR 9 CH/WD 


0888 C0F5 

0889 00 B400Q904 
0888 7039 
088C 7001 


LO 

CMP 
MOX 
MOX 


PHKX2 
L PCKXl 
PDKYE 
•♦I 


GET CH/WD 
COMPARE TO 9 
ERROR TOO GREAT 


08 80 90F3 
08BE 0001 
088F 00 67000000 
0891 00 66800848 


s 

STO 

PDKY2 LOX 

LDX 


PHKX5 
PDKY2*1 

L3 

12 PHKYl*l 


SUB ONE 

LOX MODIFIED CH/WO 


0893 00 7680087E 
0895 6100 


MDX 
LOX 


52 PHKX2 
1 


SET UP 1ST POWER 


0896 C200 

0897 00 A50008CC 
0899 71FC 
089A 7009 

0898 7104 


PDKY3 LO 

M 

MOX 

MOX 

POKVJ MOX 


2 

LI P0KX2 
1 -4 

POKYH 
1 4 


GET BIN NUMBER 
MULT 8V POWER 
CK FDR CH/WD GRT * 
CH/MO GRT 4 


089C 1000 


SLA 







0890 882A 


AO 


POKWA 




089E 0829 


STO 


POKWA 




089F 7101 


MOX 


1 t 




08A0 72FF 


MOX 


2 -S 




08 A 1 73FF 


MOX 


3 -I 




08A2 70F3 


MOX 


P0KY3 




08A3 7003 


MOX 


P0KY6 




08A4 1800 
08A5 A02A 
08A6 70F4 


PDKVH RTE 
M 
MOX 


16 

P0KX1*3 
POKYJ 


CH/WO GRT 4 
MULTIPV BY 10,000 




• 
* 


CK 


FOR SIGNED NUMBER 


08A7 C006 


P0KY6 LO 


PHKX2 




08A8 00 B4000904 
08AA 701A 
08AB 7001 


CMP 
MOX 
MOX 


L PCKXl 
POKYE 
•♦1 


CONS 9 

ERROR TOO GREAT 


08AC 7009 


MOX 


P0KY7 


CK SIGN 




» 


CK 


FOR CH/WD GREATER 


08 AD CODO 


• 

LO 


• THAN 5 
PHKX2 


08AE 8026 
08 A F 700F 


CMP 

MOX 


P0KX3 
P0KY8 


CONS 5 


08B0 7001 


MDX 


•♦I 




0881 700F 


MOX 

• 


POKYA 


GO TO CK FOR /7FFF 




• 
• 


SINGLE PRECISION NUMBER 


08B2 00 66800848 


PDKYF LOX 12 PHKYl^l 




08B4 C014 
08B5 70AB 


LO 

MDX 


POKWA+1 
PHKYF 


GET CONV NUMBER 


08B6 C200 


• 

PDKVT LO 


CORRECT SIGN 
2 


0887 00 4C1808BF 
08B9 10A0 
08BA 980D 


BSC I 

SLT 

SD 


PDKY8 t *- 

32 

POKWA 


BRANCH IF POS NUMB 
CHANGE SIGN 


08BB OAOO 


PDKV9 STD 


2 




08BC 00 74020130 


MDX I 


8WC.2 




08BE 70A6 


MOX 


PHKYH 




08BF C808 
08C0 70FA 


PDKV8 LOO 
MOX 


PDKWA 
P0KY9 


DOUBLE PREC POS NUMB 


08C1 C806 


• 

POKYA LOD 


CK 
POKWA 


LESS THAN OR EO /7FFF 


08C2 9807 
08C3 00 4C2808B2 
08C5 00 44800132 


SO 

BSC L 
PDKYE BSI I 


P0KX4 

P0KYF,*Z 

SER 


CONS 000008000 
BRANCH TO SINGLE PREC 


08C7 0B88 


DC 


PCKBE 




08C8 OOOO 


BSS E 







08C8 0002 


PDKWA BSS 


2 


WORK AREA 


?c- t no. %m? 









( 



PART NO. 2242261 
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8C2081TO . 

8C208180 

8C208190 

8C7O82O0 

8C208219 

8C208220 

8C 208230 

8C208240 

8C208250 

8C208260 

8C2082rO 

8C208280 

8C208290 

8C 208300 

8C208310 

8C206320 

8C2O8330 

8C208340 

8C2083S0 

8C208360 

8C208370 

8C20B380 

SC208390 

8C208400 

8C208410 

8C 208420 

8C 208430 

8C208440 

6C208450 

8C208460 

8C2084T0 

BC208489 

6C208490 

8C208500 

8C208510 

8C208520 

8C208530 

8C208540 

8C208550 

8C208560 

8C208S70 

8C208580 

8C208590 

8C208600 

8C208610 

8C208620 

8C208630 

8C208640 

8C208650 

8C208660 

8C208670 

BC208680 

8C208690 

8C208700 

SC2087I0 

8C208720 

8C208730 

8C208740 

8C208750 

8C208760 

8C208770 

8C208780 
8C208790 

8C208800 
8C208810 
8C208820 
8C208830 
8C208840 
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i 





















o 
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OBCA 

08CB 

08CC 

08C0 

08CE 

08CF 

0800 

080 1 

0802 

08D3 

0804 

0805 



OOOO 
3390 
0001 
OOOA 
0064 
03E8 
2710 
OOOA 
0064 
03E8 
2710 
0005 








08 D6 

0807 

0808 

0809 00 
08DB 
08DC 00 
08DE 00 
08 EO 
08E1 00 
08E3 
08E4 
08E5 00 
08E7 
08E8 00 
08 E A 
08CB 
08 EC 00 
OBEE 
08EF 
08F0 00 
08F2 00 
08F4 
08F5 00 
08F7 
08F8 
08F9 
08FA 
08FB 
08FC 00 
08FE 00 
0900 00 

0902 

0903 

0904 

0905 

0906 











OOOO 

6B27 

D029 

C48008D6 

D001 

67000000 

C7000A34 

F021 

4C1808F8 

73FF 

70F9 

C400087E 

901C 

4C2008F5 

C017 

F019 

4C1808FC 

C013 

F016 

4C2008F5 

C4000B94 

7007 

44800132 

0388 

T3FF 

1000 

6808 

C007 

740108D6 

67000000 

4C8008D6 

OOOO 
OOOO 
0009 
8000 
4000 



0907 OOOO 

0908 00 DC00098C 



090A 
0908 
090C 
090D 
090E 



285C 
1810 
6955 
6A56 

6857 



gATE 



NO. 



HS8* 



PDKX4 DC 
DC 

PDKX2 DC 

PDKX1 DC 

DC 

oc 

DC 
DC 
DC 
DC 
DC 
PDKXS DC 

* 

PCKB DC 
STX 
STO 
LO 
STO 
PCKB1 LDX 
LD 
EOR 
BSC 
MDX 
MDX 
LO 
S 

BSC 
LD 
EOR 
BSC 
LD 
EOR 
BSC 
LD 
MOX 
BSI 
DC 
MDX 
SLA 
STX 
LD 
MDX 
PCKBX LDX 

BSC 

• 

PCKBA 
PCKBB 
PCKXl 

PCKX2 
PCKX3 

• 



PCKB4 
PCKB3 



OC 

ec 
oc 

ec 
oc 



* 

PECOR OC 

STD 
STS 
SRA 
PECYF STX 
STX 
SIX 



o 

/8000 
1 

1% 

I OS 

1000 

10000 

10 

100 

1000 

I OOOO 

5 



CONS /00008000 
CONV TABLE 



CONS 5 



KEYBOARD TO BINARY RT 



8 



3 PCKBX+1 
PCKBA 
I PCKB 

PCKB1*! 
L3 

LS KECOO 
PCKBA 
L PCK83,*- 
3 -1 

PCKB1*2 
L PHKX2 
PCKXl 
L PCKB4.I 
PCKBA 
PCKX2 
I PCK8X-2,*- 
PCKBA 
PCKX3 
L PCKS4.Z 
L PCKX4 

PCKBX-2 
I SER 
PCKBE 
3 -I 


3 PCKBB 
PCKBB 
L PCKB.l 
L3 
I PCKB 





9 

/8000 

/4000 



SAVE X3 
SAVE NUMBER 
GET LIMIT CK 

SET X3 TO LIN CK 

LK UP CODE 

BRANCH IF FOUND 
SKIP IF ILLEGAL 

CK FDR 9 CHAR FIELD 

GO TO ERROR IF NOT 9 
CK FOR ♦ 



CK FOR - 

GO TO ERROR* NO ♦ - 

IMPROPER KEY CODE 

* l.E NOT 0-9 OR 0-F 

GET CONVERTED NUM 
RESTORE X3 



ORIGINAL NUMBER 
CONVERTED NUMBER 



PUNCH EDIT CARD OUTPUT ROUTINE 





PECS1 
PECOS 
16 

PECY1*1 
PECY2*l 
PECV3*! 



SAVE REGISTERS 



i C ( 
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8C208850 

8C208860 

8C208870 

BC208880 

8C208890 

8CZ08900 

8C208910 

8C2O8920 

8C208930 

8C208940 

8C208950 

8C2089&0 

8C208970 

8C208980 

BC208990 

8C209D00 

8C209010 

8C209020 

8C209030 

8C 2 09040 

8C209050 

8C209060 

8C209070 

8C209080 

8C 2 09090 

8C209100 

8C209110 

8C209120 

8C209130 

8C209140 

8C209150 

8C2O9160 

8C209179 

8C20918© 

8C209190 

8C209200 

8C209210 

8C2O9220 

3C209230 

8C2O9240 

8C209250 

8C209260 

8C209270 

8C209280 

8C 209290 

8C209300 

8C209310 

8C20932© 

8C209330 

8C209340 

8C 209350 

8C 209360 

8C209370 

8C209380 

8C209390 

8C209400 

8C209410 

8C209420 

8C209430 

8C209440 

8C2094S0 

8C209460 

8C209470 

8C209480 

SC2O9490 

8C209500 

8C209SS0 

8C209520 



PROG ID 
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08C2-0 

7A 
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f 
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090F 00 4480012C 

0911 0B9F 

0912 0000 



BSI 


I 


KEY 


PRINT EDIT CARO tIST 


DC 




PECXF 


• MESS AVE 


OC 










READ A CARO AND VERIFY 
• THAT IT IS BLANK 



0913 


00 


66000442 




LDX 


L2 


SE1B 


SET X2 « ED I MAG BUF 


0915 


00 


650001EO 




ldx 


LI 


KEYING 


XI ■ OPT REG 


0917 


00 


OCOOOBOE 


PECY7 


XIQ 


L 


ROSM 


READ OATA SWS 


0919 


00 


C4000B10 




LO 


L 


DTSW 


GET SMS 


09 IB 


00 


4C280921 




BSC 


I, 


PT,*2 


BRANCH IF F T 


0910 





1001 




SLA 




1 




091 E 


00 


4C280921 




BSC 


L 


PT e »2 


BRANCH IF BOTH 


0920 





TOOT 




MOX 




NTPT 


NOT »AP£R TAPE 


0921 


00 


44000AEO 


FT 


BSI 


L 


PPT 


PUNCH LEADER 


0923 


00 


C4000B10 




LO 


L 


OTSM 


GET SWS 


0925 





1001 




SLA 




t 




0926 


00 


4C10093C 




BSC 


I 


PECYE,- 


BRANCH IF NOT BOTH 


092 8 





086B 


WTPT 


X10 




PECX5 


SENSE DSM 


0929 


00 


4C0409TE 




BSC 


L 


PECY6.E 


XFER IF NOT READY 


092 B 





0866 




XIO 




PECX4 


READ A CARO 


092C 





0867 


PECY4 


XIO 




PECX5 


SENSE OSS 


0920 





1801 




SRA 




1 


CK BUSY 


092E 


00 


4C04092C 




BSC 


L 


PECY4.E 


XFER IF BUSY 


0930 





180C 




SRA 




12 




0931 


00 


4C040984 




BSC 


L 


PECV8.E 


XFER IF ERROR ON 


0933 





0862 


» 

• 
• 


XIO 




PECX6 


RESET DSN 












CK 


FOR BLANK CARO 


0934 





1810 


SRA 




16 




0935 





6350 




LDX 


3 


80 




0936 


00 


EF00010F 


PECY5 


OR 


L3 


KEVIN 




093S 





73FF 




MOX 


3 


-I 




0939 





TOFC 




MOX 




PECY5 




093A 


00 


4C200926 


• 
• 
9 


8SC 


L 


NTPTtt 














BLANK OUT OUTPUT BUFF 


093C 





1810 


PEC YE 


SRA 




16 




0930 





6380 




LOX 


3 


-80 




093E 


00 


07000230 


PECYA 


STO 


L3 


KEYIN*81 




0940 





7301 




MOX 


3 


1 




0941 





70FC 


• 

• 
• 


MOX 




PECYA 




0942 


00 


6700FFB0 


LOX 


L3 


-80 


SET X3 » COL CONTROL 












SET 


E INTO OUTPUT AREA 


0944 


00 


C4000A43 




LO 


L 


PBIX2 




0946 





0100 




STO 


1 







094 T 





7301 


• 
• 
• 


MDX 


3 


1 














SET 


PIO INTO OUTPUT AREA 


0948 





C200 


LO 


2 







0949 





1008 




SLA 




8 




094 A 





4051 


• 
• 
• 
• 


BSI 




P3IHX 


CONV TO HEX ANO 
• STORE IN OUTPUT 












CK 


FOR END OF ED CO OIR 


0948 





C201 


LD 


2 


1 




094C 


00 


F4000B9E 




EOR 


L 


PECXO 




094 E 


00 


4C200968 




BSC 


L 


PECYB t 2 


BRANCH IF NOT END CD 


0950 


00 


C4000B9E 




LO 


L 


PECXO 


SET FFFF EDIT END 


0952 





4049 




BSI 




PBIHX 


CONV ANO STORE 
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8C2095S© 
8C209S4© 
8C209550 
8C209560 
6C2O95T0 
8C209588 
8C209S90 
8C209600 
8C209610 
8C209620 
8C2096S0 
8C 209640 
8C209650 
8C209660 
8C20967C 
8C209680 

SRC 8C209690 
8C209700 
8C209T10 
8C209720 
8C209730 
8C209740 
8C2O9750 
8C209760 
8C209770 
BC209780 
8C 209790 
8C209800 
8C209810 
8C209820 
8C209830 
8C209B40 
8C209850 
8C209860 
8C209870 
.8C209880 
8C209890 
BC209900 
8C209910 
8C209920 
8C209930 
8C209940 
8C 209950 
8C209960 
8C 209970 
8C209980 
8C209990 
8C2 10000 
8C210010 
8C2I0020 
8C210030 
8C210040 
8C 2 10050 
8C210060 
8C21O070 
8C210080 
8C210090 
8C210100 

SRC 8C210110 
8C210120 
8C210130 
8C210140 
8C210150 
8C210160 
BC210170 
8C210180 
8C210190 

SRC 8C210rOO 
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ID 



08C2-0 
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o 


























) 





( ' 



( c 



( ( ( ( 



( ( ( c 



( t ( 




O "! 

f' 

n 









n 
n 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVS1EM 
4K EDIT CONTROL 



PART NO. 2242261 
PAGE 8A 



0953 


8 


4061 




SSI 




PEC 


PUNCH CARD SRC 


8C210210 


0954 


00 


4400O9E0 




BSI 


L 


PPECO 


PRINT THE EDIT CARD 


8C210220 


©956 


r» 


C4O0O81© 




LO 


L 


DTSX 


GET SMS 


8C2 10230 


095 8 


00 


4C280961 




esc 


L 


PEC¥l»*I 


BRANCH IF NOT CARDS 


8C2 10240 


095A 





0835 




xto 




PECXC 


STACKER SELECT 


8C210250 


0958 


8 


083C 




XIO 




PECX7 


FEED A CARD 


8C210260 


095C 





0837 


PECYC 


XIO 




PECX5 


SENSE OSK 


8C2 10270 


0950 





1801 




SRA 




I 




8C210269 


095 E 


00 


4C040«e 




SSC 


I 


PECYCsE 




8C2I0290 


0960 





0835 


* 


XIO 




PECS6 


RESET BSK 


8C21030S 
8C210310 


0961 


00 


65000000 


PECYl 


LOX 


LI 





RESTORE REGS 


8C21032© 


096 3 


00 


66000000 


PECY2 


LOX 


L2 


a 




SC21O330 


0965 


00 


67000000 


PECY3 


LOX 


19 


8 




3C2 10340 


096 7 





2000 


PECOS 


LOS 









8C210350 


096 8 


s 


C82S 




LOD 




PECS1 




8C2 10360 


0969 


00 


4C800WT 


• 


BSC 


T 


PECO» 

SET 


EXIT FROM ROUTINE 
CARO NUMB IN OUTPUT 


8C2 10370 
9C210380 


0968 





C201 


PECYB 


to 


2 


I 




8C 2 10390 


096C 





E821 




OR 




PECI3 


ADO in m 


8C 2 10400 


0960 


3 


402E 


• 

ft 
» 


iSI 




PBIHX 

SET 


COW «N0 STORE SRC 

MUH& ENTRIES PER C4R0 


8C210410 

8C2S0420 
8C21043© 
8C21O440 


096E 





C202 




LO 


2 


1 




4C 2 10450 


096F 





1888 




SRT 




S 




8C210460 


0970 





1810 




SRA 




it 




8C21047® 


0971 





1088 




SIT 




8 




6C210480 


0972 





001C 




STO 




PECXE 


SAVE 


8C2 104,90 


0973 





4028 


• 


BSI 




PBIHX 

MQVf 


CONV ANO ST08F SRC 
DATA TO OUTPUT BUFF 


8C2J0500 
8C2105IO 


0974 





C203 


PEC YD 


LD 


2 


3 




8C 2 1 0520 


0975 





4026 




BSI 




PBIHX 


CNV AND STORF SRC 


8C210530 


0976 





7201 




MOX 


2 


1 


BUMP I MAG BUF AOOR 


8C210540 


0977 


00 


74FF098F 




MDX 


L 


PECXE »-l 


DECREMENT ENTRIES/CO 


8C210550 


0979 





70FA 




MOX 




PECYS 




8C2 10560 


097A 





403A 




BSI 




PED 


PUNCH A CARO $SC 


8C2I0570 


097B 


a 


4064 




BSI 




PPECD 


PRINT CARO SRC 


8C2 10580 


097C 





7203 




MDX 


2 


3 




»C 21 0590 


0970 





70A5 


• 


MDX 




PT*2 


BRANCH 


8C21060© 
8C21O610 


097E 


00 


4480012C 


PECY6 


BSI 


I 


KEY 




8C 2 10620 


0980 





0B95 




OC 




PECX9 




8C2106SO 


0981 





0000 




OC 









8C2 10640 


0982 





3003 


HAIT3 

• 


WAIT 




3 


1442 NOT READY «ROJ 
•PUSH START TO RETRY 


8C 2 10650 
8C210660 


0983 


o 


7093 


• 


MOX 




PECV7 


BRANCH 


8C2I0670 
8C210680 


0984 


00 


4480012C 


PECY8 


BSI 


I 


KEY 




8C210690 


0986 





0B95 




OC 




PECR9 




8C210700 


0987 





0000 * 




DC 







1442 READ ERROK 


8C210710 


0988 





0600 




XIO 




PPCX6 


RESET OSM 


8C210720 


0989 





3004 


WAIT4 


WAIT 




4 


PUSH START TO RFRFAO 


8C210730 


098 A 





70RC 


• 


MOX 




PECY7 


BRANCH 


8C2I0740 
8C210T50 


098C 




0000 




0SS 


E 


e 




8C210760 


09 6C 




0002 


PECX1 


ass 




2 


SAVE A ♦ 


8C210T70 


098E 





EOOO 


PECX3 


OC 




/EDOO 




8C 2 10780 


098F 





0000 


PECXE 


DC 







ENTRIES PER CARO 


8C210790 


0990 





0000 


PECXC 


OC 







STACKER SELECT IOCC 


8C210800 


0991 





1480 




DC 




/S480 




8C210810 


0992 


© 


OlEO 


PECX4 


DC 




KEYIN»1 


READ A CARD IOCC 


8C210820 


0993 





1600 




0C 




(1 600 




8C210830 


0994 





0000 


PECX5 


EC 







SENSE 1442 OSM 


RC210840 


0995 





1700 




OC 




nr oo 




8C2S0850 


0996 





0000 


»ECX6 


DC 







SENSE AND RESET OSH 


8C2 10860 


0997 





1703 




DC 




/1703 




8C210870 


0998 





0000 


PECK? 


OC 







FEED A CARD IOCC 


8C210B80 


B f So. 


i\m? 
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099* 01E0 
099B 1S00 



095C 
0990 a 

099E 
099F 
09A0 
09AI 
09A2 
09 A 3 
09A4 00 
09A6 00 
09 A 8 00 
09AA 
09AB 
09AC 
09A0 
09AE 
09AF 00 
0981 00 
09B3 00 



O 







0000 
1800 

6911 
6A12 

6104 

1810 

1084 

0001 

66000000 

C6000-t35 

07000230 

T301 

1000 

TIFF 

70F3 

7301 

65000000 

66000000 

4C80099C 



09 95 
09B& 
0988 
09BA 
09BB 
09B0 
09BF 
09CO 
09C2 
09C3 
09C5 
09C6 
09C7 
09C8 
09C9 
09CB 
09CC 
09CE 
09CF 



0000 

00 C4000BI© 

00 4C2S0BU 

1001 

00 4C2S0BU 

00 C400022F 

E81F 

00 D400Q22F 

O 0801 

00 4C0409DI 

C 08CA 

O 0R03 

08CC 

O 1801 

00 4C0409C7 

180C 

00 4C0409D8 

08C7 

00 4C8009B5 



0901 08C2 

0902 00 4480012C 



0904 O 

0905 

0906 

0907 



0B95 
0000 
3006 
70EA 



0908 0880 

0909 00 44B0012C 
09DB 0B95 
090C 0000 
09DD 3007 

09DE 9 70E3 

09DF 0008 



tt'fa. Sts?*** 



DC 

PECX6 DC 
OC 



BIHX OC 
RTF 

STX 
STX 
LDX 
PBIVS SRA 
SIT 
STO 
LOX 
10 
STO 
MOX 
SLA 
NDX 
MOX 
MOX 
LDX 
LOX 
BSC 



/1402 

KEYIN*1 
/1500 



PUNCH A CARD 10CC 



BINARY TO HEX CARD IMAGE RT 



PBIY1 
PBIY2 



« 
PEO 



PEDEN 



PEDY4 



PE0V2 



PEOEX 



OC 

LD 

BSC 

SL* 

BSC 

LO 

OR 

STO 

XIO 

BSC 

XIO 

XIO 

XIO 

SRA 

BSC 

SRA 

BSC 

XIO 

6SC 



L2 




16 

PBIVl*l 

PBIY2*! 

4 

16 

4 

•♦1 



L2 KECOD+l 
13 KEY1N*81 
3 1 


1 -I 

PBIY3 
3 1 
LI 
L2 
! PBIHX 



PUT BIN WORD TO BE 

* CONVERTED IN REG 

SAVE XI 

SAVE X2 

SET LOOP CONTROL 

CONV CHAR TO HEX 



GET HEX EOUIV 

BUMP TO NEXT OUTPUT 



PUT BLANK IN OUTPUT 
RESTORE XI 
RESTORE X2 



PE0V1 XIO 
BSI 
OC 
OC 

MA1T6 WAIT 
MOX 

• 

PE0Y3 XIO 
BSI 
OC 
OC 

MAIT7 WAIT 

MOX 
PE3X1 DC 





OTSW 

HB05, 

1 

HB05, 

KEYIN 

PE0X1 

L KEYIN 
PECX5 

L PEOYI 
PECXC 
PECX8 
PECX5 
1 

L PE0Y2 
12 

L PE0Y3, 
PECX6 

1 PED 

PECX5 
1 KEY 
PECX9 

6 
PE0Y4 

PECX6 
1 KEY 
PECX9 

7 

PE0V4 

/0008 



PUNCH A CARD ROUTINE 



*l 

♦ 80 

♦ 80 
E 



iE 

.E 



GET SMS 
BRANCH IF P T 

BRANCH IF BOTH 

* AT END OF OUTPUT 

SENSE DSbf 

XFER IF NOT ROY 

STACKER SELECT 

PUNCH CARD 

SENSE OSH 

CK BUSY 

XFER IF BUSY 

XFER IF ERROR ON 

RESET OSW 

EXIT 

SENSE OSM 



1442 NOT RDY'PUNCH) 



SE 



SX 



RESET DSU 



1442 ERRO^ AFTER 
* PUNCHING 



ENO OF PUNCH BIT 



i-Vi i 



r 
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8C210890 

8C? 10900 

8C210910 

8C210920 

8C2I0939 

8C210940 

8C210950 

8C2 10960 

8C21O970 

8C210980 

8C210990 

8C211000 

8C211010 

8C211020 

8C21103Q 

8C2 11040 

8C211050 

8C211060 

8C211070 

8C21I080 

RC211090 

8C211100 

8C211U0 

8C211120 

8C211130 

8C211140 

8C2111S0 

8C211160 

8C211170 

8C2U180 

8C21U90 

8C 2 11200 

BC211210 

8C211220 

8C211230 

8C2 11240 

8C211250 

8C2I1260 

8C211270 

8C211280 

8C211290 

8C211300 

8C211310 

8C2U320 

8C211330 

8C211340 

8C211350 

8C2U360 

8C21I370 

8C211380 

8C211390 

8C211400 

8C2U410 

8C211420 

8C211430 

8C211440 

8C211450 

8C 2 11460 

8C211470 

8C211480 

8C211490 

8C211500 

8C211510 

8C211520 

8C211530 

8C2U540 

BC 21 1550 

8C211560 



na 



ID 









o 





( ) 


o 


> 





1 t 





< 1 





4 






o n 
o 

n 



0BC2-0 
9 



n 




>-, 

p» 




I ( < ( 



( ( (1 



c c: ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
*K EDIT CONTROL 



09E0 
09E1 
09E2 
09E3 
09 E4 



09E5 00 

09E7 00 

09E9 

09EA 

09EB 

09EC 

09EE 00 

09F0 

09FI 

09F3 

09F4 






00 



ots 






0000 
692 B 

&A2C 
6820 
0833 



650001DF 

6000010E 

63B0 

6202 

61EF 

C7000230 

F5000A45 

1804 

4C1809F5 

7101 

70F7 



09F5 
09F7 
09F8 
09F9 
09FA 
09FB 
09FC 
09F0 
09FF 
0A01 
0A02 
0A04 
CA05 
0A0 7 
OA09 
OAOA 
OAOB 
OAOC 
OAOE 
OA10 
0A12 



00 C5000A79 
1008 

1808 

72FF 

7019 

6202 

1800 
00 D480010E 
00 74010IDE 
F015 
00 4C200A14 
6IFF 
QU 6080QIDE 
00 4480012C 
010F 
0000 
C80C 
00 65000000 
00 66000000 
00 6 7000000 
00 4C8009E0 



0A14 7301 
0A15 7005 
0A16 70E0 



0A17 
0A18 



4040 
0002 



0*1 A 




eoos 


0A1A 





0000 


0A1B 


© 


0F02 


0A1C 





0000 


0A1C 






0A1D 





0000 


0A1E 





0000 


0A1F 





0000 


0A20 





0004 


0A21 





4400 


0A22 





0000 


0A23 





0000 



a T fc. smi* 



ppecd 



CONVERT CCD TO EBOIC # KEY 



PPEY4 

PPEY2 



PPEY1 



PPEV8 



PPEY5 
PPEY6 
PPEY7 

e 
PPEY3 



* 

PPEX2 

PPEX3 

KSNS 

KMSG 

KECGD 

KOUT 



OC 

STX 

STX 

STX 

STO 



LOX 

STX 

LOX 

LDX 

LDX 

LD 

EOR 

SRA 

BSC 

MDX 

MOX 



LD 
SLA 

RTE 

MOX 

MOX 

LDX 

RTE 

STO 

MOX 

EOR 

BSC 

LDX 

STX 

BSI 

OC 

OC 

LDO 

LDX 

LOX 

LOX 

BSC 

MOX 
MOX 
MOX 

DC 
BSS 



K0004 

• 

KL 

KAQ 



BSS 

OC 

OC 

OC 

EOU 

OC 

OC 

OC 

OC 

DC 

OC 

cc 



/oooe 

1 PPEV5*1 

2 PPEY6*l 

3 PPEV74-1 
PPEX3 



LI KEYIN 
LI KINC 

3 -80 

2 2 

1 -17 
L3 KEYIN*8l 

li KEeoon? 

4 
L PPEY1,«- 
1 1 
PPEY2 



LI KTILT*I6 

i 

24 
2 -1 

PPEY3 
2 2 

16 

I KIWC 

L KIWC, I 

PPEX2 
L PPEY3.E 
1 -1 

II KIWC 
I KEY 

KEVIN 



PPEX3 
LI /OOOO 
L2 /OOOO 
L3 /OOOO 
I PPECD 



3 1 

PPEY4 
PPEY8 

/4040 
E 2 



/OOOO 

/0F02 

/OOOO 

KMSG 

/OOOO 

/OOOO 

/OOOO 

4 

/44©0 


« 



SAVe XRS * A * S 



INITIALIZE ROUTINE 



RESTORE KFCOO POINTS 
FETCH KEYBD CHAR 



BR IF COMPARE 
TRY NEXT CHAR 

PACK 2 EBOIC CHARS 



SKIP IF DONE TWO CHA RS 
FETCH NEXT CHAR 



PLACE IN OUTPUT AREA 
NE*T STORAGE AREA 

BR - NOT OBLE BLANK 
SET TERM 

GO PRINT WHOLE EDI? 
MS.G AREA 

RESTORE XRS, A AND 



EXIT TO USER 
SKIP IF DONE 



DOUBLE S°ACE EBOIC 
SAVED A AND Q 



KEYBOARD CODES 
SENSE-NO RESET 
MESS ADRS 
ROT-TLT OUTPUT TABLE 

CONSTANT 



ACC 

RES 
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8C211S70 

8C211580 

8C211590 

8C2U6O0 

8C211610 

8C211620 

8C211630 

8C2 11640 

8C211650 

8C211660 

8C21S67Q 

8C211680 

8C211690 

8C21170O 

6C211710 

8C211720 

8C2I1730 

8C211740 

8C2U750 

8C2U760 

8C21I770 

BC211780 

8C2S1T90 

8C21160O 

BC2S18I0 

8C211820 

8C211830 

8C211840 

8C211B50 

9C?II860 

8C21I870 

8C211880 

8C211R90 

8C21I900 

8C2I1910 

8C21I920 

SC2U930 

8C211940 

8C2II950 

8C2I1960 

8C211970 

8C212980 

8C211990 

8C212000 

8C21201O 

8C2I2020 

8C21203O 

8C212040 

8C2I2050 

8C212060 

8C212070 

8C212080 

SC212090 

8C212100 

8C212110 

8C212120 

8C212130 

8C212140 

8C212I50 

8C212160 

8C212170 

8C212180 

8C21219© 

8C2 12200 

8C212210 

8C212220 

8C212230 

8C212240 



■•■;> 



i 



08C2- 



( c t c 



f 

v. 



< C ( C L C ( C C 



( ( 1 C 



( ( ( I 



( ( I c 



r I 



C C ( 



f 
f 
r 
c 

r 
r 



r 
r 
r 
r 
r 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 2800 SYSTEM 
4K EDIT CONTROL 



0424 

0A25 

0A26 

0A27 

0*28 

0A29 

0A2A 

0A2B 

0A2C 

0A20 

0A2E 

0A2F 

0A30 

0A31 

0A32 

0A33 



9 

































0A34 
0*35 
0A36 
OA3 7 
0A3 8 
0A39 
0A3A 
0A3B 
0A3C 
0A30 
0A3E 



0A3F 
0A40 
0A41 
0A42 
0A43 
0A44 



0A4S 

0A46 
OA47 
0A4 8 
0A49 
0A4A 
0A4B 
0A4C 
0A40 
0A4E 
0A4F 



0000 

OF OS 

0A24 

0902 

0000 

0C02 

OIOF 

0A02 

0001 

8120 

8060 

4420 

FFFF 

8420 

80A0 

4000 

0000 
2000 
1000 
0800 
0400 
0200 
0100 
0080 
0040 
0020 
OOiO 

9000. 
8800 
8400 
8200 
8100 
8080 

0002 
0004 
0008 
4100 
2020 
4220 
FFFF 
8220 
FFFF 
FFFF 
2420 



OASO 


16CT 


0A51 


26C8 


0AS2 


22C9 


0A53 


7ED1 


0AS4 


SAD? 


0A55 


SE03 


0A56 


7204 


0A5T 


96E7 


0A5B 


520* 


0AS9 


5607 


0A5A 


6608 


0A5B 


6209 


OASC 


9AE2 


0A50 


9EEI 



8**0. H»»» 



KRDV DC 

oc 

KPRT OC 
DC 

oc 

OC 
OC 
DC 
KQNE OC 



KPCO 



KREO 



KY 



OC 
OC 
OC 
OC 
KECPD OC 
OC 
OC 

KECOD OC 
OC 

OC 

DC 

OC 

oc 

DC 

r>c 
oc 
oc 
oc 

KECAD DC 
DC 

DC 
OC 
DC 
DC 



KC* 
PBIX2 



/0000 
/OF03 

KRDV 
/0902 

/oooo 

/0C02 

KEVIN 

/OA02 

1 

/8I20 

/8O60 

/4420 

/FFFF 

/8420 

/80A0 

/4000 

/OOOO 
/2000 
/1000 
/0800 
/0400 
/0200 
/OlOO 
/0080 
/0040 
/0020 
/OOIO 

/9000 
/8800 
/8400 

/a 200 

/8100 
/8080 



SENSE - RESET CMNO 
PRINT COMMAND 

K80 PROCEED COMMAND 

READ KBD COMMAND 

CONSTANT I 
UPPER CASE N 

r 

* 



SPACE 


1 

2 
S 

4 
5 

6 
7 
• 

9 

* 
8 
C 

E 
F 



KRENT OC 
KERSE OC 
KENDK OC 
KAL OC 

OC 

OC 

DC 

DC 

OC 

OC 
KCMA OC 
**»*»•**•♦** 

* 

KTGLT DC 

OC 

OC 

DC 

OC 

KLRT DC 

OC 

• 

DC 
OC 
OC 
OC 
OC 
DC 
OC 



ERASE FIELD 
ERASE CHAR 
END OF MESSAGE 
LOWER CASE N 

* 



/0002 
/0004 
/0008 
/4100 
/2020 
/4220 
/FFFF 
/8220 
/FFFF 
/FFFF 
/2420 , 



TYPEWRITER CODES 
ANO EBDIC COOES 

G 
H 
I 
J 

K 



/I6CT 
/26C8 
/22C9 
/7E0I 
/5AD2 

/5E03 
/7204 

/96E7 
/5206 
/5607 
/6608 
/6209 
/9AE2 
/9EE3 



L 

n 
x 



p 
a 

R 

s 

T 



PART NO. 2242261 
PAGE |0 



8C212250 

8C212260 

8C212270 

8C212280 

8C212290 

8C212300 

8C212310 

8C212320 

8C21233S 

8C2 12340 

8C212350 

8C212360 

8C21237© 

8C21238© 

8C2 12390 

8C212400 

8C2S2410 

8C212420 

8C212430 

8C2 12440 

8C212450 

8C212460 

8C2124T0 

8C212480 

8C2 12490 

8C212500 

8C212510 

8C2 12520 

8C212530 

8C212540 

8C212550 

8C212560 

8C2125T0 

8C212580 

8C212599 

8C2 12600 

8C212610 

8C2 12620 

8C212630 

8C212640 

8C212650 

8C2J2660 

8C212670 

8C212680 

8C2 12690 

8C2 12700 

SC212710 

8C 2 12720 

8C212730 

8C2 12740 

8C212750 

8C212760 

8C212770 

8C212780 

8C212790 

8C212800 

8C212810 

8C212820 

8C212830 

8C212840 

8C212850 

8C212860 

8C212870 

8C212680 

8C212890 

8C212900 

8C212910 

8C212920 



K8 



ID 



' J 





(') 





() 





o 





o 


^ 








- 


o 



O 





o 
n 



08C f5 



n 


* 







r 


- 





~\ 





o 





n 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
4K EDI? CONTROL 



0A5E e 


S2E* 


OASf 


6»E5 


0A60 


92E6 


0A61 


7605 


0A62 S 


A6ES 


0A63 


D65C 


0A64 


8068 


0A65 


0048 


0A66 


0A4E 


0A67 


8*60 


0A68 


2140 


0A69 


C4F0 


0A6A 


FCFI 


0A68 


GSP? 


0A6C 


DCF3 


0A6D 


F0F4 


0A6E 


F4F5 


0A6F 


00F6 


0A70 


04F7 


0A71 


E4F8 


0A72 


E0F9 


0A73 


3EC1 


0A74 


1AC2 


0A75 


1EC3 


0A76 


32C4 


0A77 


36CS 


OATS 


12C6 



0A79 8158 



OAT A 

0A78 

0A7C 

0A70 

0A7E 

0A7F 

0A80 

0A81 

0A82 

0A83 

0A84 
0A85 

0A86 

0A87 

OA88 

0A89 

0A8A 

0A8B 

0A8C 

OASO 

0A8E 

0A8F 

0A90 

0A91 

0A92 

0A93 





9 
Q 




8 




0600 

0600 

0600 

8100 

3600 

C400 

C400 

FCOO 

2100 

2100 

5E00 

2200 

7600 

3600 

2100 

1E00 

3E00 

7600 

1E00 

3600 

5E00 

5E00 

3600 

3200 

8120 

8101 



0A94 0000 
0A95 COOS 
0A96 00 04000124 
0A98 6050 



e^o. imp 



m 


/B2E4 


u 


oc 


/S6E5 


V 


oc 


/92E6 


V 


oc 

• 


/76D5 


N 


DC 


/A6E8 


t 


DC 


/D65C 


• 


OC 


/896S 


# 


KTPIT DC 


/0048 


» 


OC 


/0A4E 


♦ 


DC 

i 


/8460 


- 


KTOLT DC 


/2140 


SPACE 


KTILT DC 


/C«F0 





OC 


/FCFI 


1 


OC 


/D8P2 


2 


oc 


/OCFS 


3 


oc 


/F0F4 


4 


oc 


/F4F5 


5 


ac 


/00F6 


% 


oc 


/D4F7 


? 


DC 


/E4F8 


8 


DC 

• 


/E0F9 


f 


RTALT DC 


/3ECI 


4 


DC 


/1AC2 


% 


DC 


/IEC3 


£ 


OC 


/32C4 


9 


DC 


/36CS 


e 


OC 

* 


/I2C* 


f 


KCR OC 

* 


/815B 


CARRIER RETURN 


• 

KFELO DC 


/0600 


KEYBOARD ERROR MSG 

• 


DC 


/D600 


* 


DC 


/0600 


• 


DC 


/8100 


cm 


DC 


/3600 


E 


DC 


/C400 





DC 


/C400 





DC 


/FCOO 


1 


DC 


/2100 




DC 


/2100 


SP 


OC 


/5E00 


L 


DC 


/2200 


I 


OC 


/7600 


N 


DC 


/3600 


E 


DC 


/2100 


S^ 


DC 


/1 600 


C 


DC 


/3EO0 


& 


DC 


/7600 


N 


DC 


/1F00 


C 


OC 


/3600 


£ 


OC 


/5E00 


L 


DC 


/5E00 


L 


DC 


/36Q0 


E 


OC 


/3200 





K8120 OC 


/8120 




DC 


/8101 


CR 




ROUTINE TO READ ONE 




SKEITON SECTION 


RDSK DC 







LD 


RDSXO 


GET LDR RETURN 


STO L 


/0124 


SET 


LDX X 


/0050 


BRANCH TO LOR 



se 
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8C212930 

8C212V40 

8C212950 

8C212960 

8C212970 

8C212980 

8C212990 

8C2130O0 

8C213010 

8C213020 

8C213030 

8C21304S 

8C 2 13050 

8C2 13060 

8C213070 

8C213080 

8C2 13090 

8C213100 

8C2131IO 

8C213120 

8C213130 

8C213140 

8C2I3150 

8C213160 

8CJ13170 

8C213I80 

8C213190 

8C2 13200 

8C213210 

8C13220 

8C2132S0 

8C213240 

8C213250 

8C21326»- 

8C213270 

8C213280 

8C213290 

8C 2 13300 

8C213310 

8C213320 

8C213330 

8C213340 

8C213350 

8C213360 

8C21'»370 

8C213380 

8C213390 

8C213400 

8C21341Q 

8C213420 

8C213430 

8C213440 

8C2 13450 

8C2 13460 

8C2 13470 

8C213480 

8C213490 

8C21350O 

8C2135S0 

3C213520 

8C213530 

8C213540 

8C213550 

8C213560 

8C213570 

8C21358© 

8C 2 13590 

8C 2 13600 



«8£ 



IS 



08C2- 



III 



( r ( ( c 



( ( c 



C' f , 



( C C ( 



( <•( 1 



f 
f 
f 

r 



( 
f 

r 

f 
( 



r 
r 
r 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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0A99 CO 4C800A94 
0A9B 0A99 



RDSK1 BSC I ROSK EXIT 

RDSXO DC RDSKI RETURN 



sx 



0A9C 0AB1 
0A9D OAOC 
0A9E 0AD4 


• 

• 

* 

LRAIT DC 
DC 
DC 

• 

• 

• 

* 




XFER VECTOR TBLS BY FORM NO. 
DONT FORM 
LRTF1 1 
LRTF* 2 


0A9F 0000 


• 
* 
• 
• 
LUKA 


OC 






WORK STORAGE AREA 


OAAO 0000 
OAAl 6200 
0AA2 00 6E00043F 
0AA4 00 65800AA0 
0AA6 ClOl 
0AA7 D0F7 
0AA6 6901 
0AA9 00 65800000 
OAAB 00 45800A9C 
OAAO 00 74020AA0 
OAAF 00 4C800AA0 


LD0I1 

LWCLD 

OONTl 

• 
DONT 

• 
• 
• 
LBSNR 

• 
* 


DC 

LDX 

STX 

LDX 

LD 

STO 

STX 

LDX 

BSI 

MDX 

BSC 


2 

L2 

11 

1 

1 
11 

11 

L 

I 




LGROP 

LOOIT 

1 

LUKA 

LWCLO*! 

LRAIT 
LOOIT, 2 
LOOIT 


RESET GROUP CNTR 

LO CHR / WORD CNT 
SAVE IT 

LD FORM NUMBER 
BRANCH TO RTM 
I NCR RETURN 
EXIT 


0AB1 0000 
0AB2 00 4C000AA0 


DC 
BSC 


L 




OONTl 




0AB4 0000 
OABS 00 650001DE 
0AB7 ClOO 
OABS 00 D400043E 
OABA 00 6680043E 
OABC 7201 
OABD 00 7402043E 
OABF 00 4C800AB4 


DC 

LDX 

LD 

STO 

LDX 

MOX 

MDX 

BSC 


LI 
I 

L 

12 
2 

L 

I 


KIWC 



LWC 

LWC 

1 

LWC, 2 

LBGNR 


LO INPUT TBL ADOR 
LO INPUT WC 
SAVE WC 

ADO 2 TO WC 
EXIT 


0AC1 0000 
0AC2 00 44800132 
0AC4 0B88 


• 
• 
LERR 

• 
• 
• 
LHCC 

LD01 

• 

• 


DC 

BSI 

DC 


I 


OATA 


SER 
PCKBE 


WRONG ERROR 
OATA WRONG 


0AC5 0000 
0AC6 6B01 
0AC7 00 CSOOOOOO 
0AC9 00 44200ACD 
OACB 00 4C800AC5 


DC 

STX 

LD 

BSI 

BSC 


3 
LI 
L 
I 


L 001*1 

LMTRM.Z 
LWCC 


SE 

LO SPACE 

BR IF NOT SPACE 
EXIT 


OACD 0000 
OACE F004 
OACF 00 44200AC1 
0AD1 00 4C800ACD 


• 
• 
LMTRM 


OC 
EOR 
BSI 
BSC 


L 

I 


LTERN 

LERR, 2 
LMTRM 


BR IF ERROR 



SE 



SX 



SE 



SX 



SRC 



sx 



SE 

SRC 
SX 



B T fc. mm* 
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8C213610 

8C213620 

8C213630 

8C213640 

8C2I3650 

8C213660 

8C2 13670 

8C213680 

8C213690 

8C 2 13700 

8C213710 

8C213720 

8C213730 

8C213T40 

8C2137S0 

8C213760 

8C213770 

8C 2 13780 

8C213790 

8C213800 

8C213810 

BC213820 

8C213830 

8C213840 

8C213850 

8C2 13860 

8C213B70 

8C 2 13880 

8C213B90 

8C 2 13900 

8C213910 

8C213920 

8C213930 

8C213940 

8C213950 

8C213960 

BC 2 13970 

8C 2 13980 

8C 2 13990 

8C214000 

8C214010 

8C214020 

8C214030 

8C214040 

8C2140S0 

8C 2 14060 

8C714070 

8C214080 

8C214090 

8C214100 

8C214110 

8C214120 

8C214130 

8C214140 

8C214150 

8C214160 

8C214170 

8C214180 

8C214190 

8C214200 

8C214210 

8C214220 

8C214230 

8C2 14240 

8C214250 

8C214260 

8C 2 14270 

6C214280 



KB 



10 



OKJjO 



( ( ( t 



( ( c c 



C C ( 









o 

c o 

o 

P. o 



I .-, 



. ) 
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r. 
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r> 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEK 
4K EDIT CONTROL 



0403 FFFF 



0A04 0000 
0AD5 0002 
0405 00 44800137 
0A08 0000 
0AD9 0437 
OAOA 00 4C800A04 



OAOC 0000 
OADD D003 
OAOE 4006 
OADF 00 44800136 
0AE1 0000 
0AE2 0437 
QAC3 00 4C800ADC 



0AE5 0000 
0AE6 40C0 
0AE7 00 67800A9F 
0AE9 7301 
OAEA 40DA 
OAEB 00 4C800AE5 



LTERM OC 

LRTF2 OC 
STO 
BSI 
OC 

DC 
BSC 



LCHC 



OAEO 


0000 


OAEE 


6303 


OAEF 


C009 


OAFO 


D018 


0AF1 00 


C7000AF9 


OAF 3 


0014 


0AF4 


4008 


OAFS 


73FF 


0AF6 


70F8 


OAF 7 00 


4C800AE0 


0AF9 


0019 


OAFA 


7F00 


OAFB 


0000 


OAFC 


7F00 


OAFD 


0000 


OAFE 


080B 


OAFF 


1808 


OBOO 00 


4C040AFE 


0602 


0809 


0B03 00 


74FF0B09 


0B05 


70F8 



* 

» 
• 
LRTFS OC 

STO 
BSI 

BSI 
LCKBD OC 

OC 
BSC 

* 

* 

LTRFX OC 
BSI 
LDX 
MOX 
BSI 
BSC 

9 

* 

PPT DC 

PPT1 LOX 
PPT1A LD 
STO 

LO 
STO 

BSI 

MDX 

MOX 

BSC 

WOCT OC 

LEAOE DC 

OC 

DC 

* 

PUTAP DC 



BCK 



XIO 
SRA 

BSC 
XIO 

MDX 
MOX 



K T fc. SHSXJ* 



/FFFF 



ALL SITS 



ICH3W 

1 PHKVB 

2ER0 

I LRTF2 



ICHBD 

LTRFX 
I POKYB 

ZERO 
I LRTF1 



LBGNR 
n LWKA 
3 1 

LWCC 
I LTRFX 



SET CHR / WO 

CO CONVERT TO HEX 
CHR / BINARY WORD 
DISPLACEMENT ADOR 
EXIT 



SET CHR / WD 

GO TO SFTUP AND CK 
GO CONVERT TO DEC 
CHR / BINARY HORD 
DISPLACEMENT ADDR 
EXIT 



GO SET UP FOSf FORS 
LD CHAR / WC CNT 

GO TO CHECK FQKM 
EXIT 



SE 



SRC 



SX 



SE 



SRC 



SI 



SE 



SX 



PUNCH LEAOER 




3 3 

WDCT 
CHOUT 

L3 IEA0E-1 

XI OUT 

PUTAP 

3 -1 

PPT1A 

1 PPT 

25 

/TFOO 
/OOOO 
/7FO0 



SET IXING 

SET WD CT 

GET PATTERN 
SET 

PUNCH TAPE 
OECR IX 3 
LOOP 
EKIT 

WD CT 
PATTERNS 



SE 



SRC 



SX 



PUNCH TAPE 





SEN5S 

8 

BCKsE 

PUNK 

CHOUT ,-1 

BCK 



SENSE 

BRANCH • NOT READY 
PUNCH A CHR 
OECR WO CT 
LOOP 



se 



PART NO. 
PAGE 



SC214290 

8C214300 
8C214310 
8C214320 
8C214330 

8C214340 
8C214350 
8C214360 
8C2143T0 

8C214360 

8C214390 

8C214400 

8C214410 

6C2S442© 

8C2I4430 

8C214440 

8C214&S0 

8C214460 

8€?144?0 

8C214480 

8C 2 14*90 

8C7I4500 

8C214510 

8C214520 

8C2I4530 

8C214«.40 

8C214550 

»)C214560 

BC21-.S70 

6C214580 

8C214S90 

8C214600 

8C2I4610 

8CI14620 

8C214630 

8C214640 

8C214650 

8C214660 

8C214670 

8C214680 

8C 2 14690 

8C214T00 

3C?14710 

8C214T20 

8C?14?S0 

8C214740 

8C2I4750 

SC 2 14760 

8C2147T0 

8C214780 

8C214790 

8C214800 

8C214810 

8C214820 

8C214830 

8C2I4840 

8C214850 

SC2S4860 

8C214870 

8C214880 

8C214890 

8C2I4900 

8C2I4910 

8C2I4920 

8C2 14930 

8C2 14940 

6C214950 

8C214960 



>•» 



II 



224226: 



fa 



08C?- 



fit 



u 



( , ( ( ( 



f 



( ( ( K tX ■ 'Ci-'c i 



( ( 



c 
r 
c 
c 
c 



IB* MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1000 SYSTEM 



«« FOIT CONTROt 



0306 00 4C800AF0 



08 OS 
0808 
0B09 
CBOA 
OBOB 
OBOC 
OBOD 
OBOE 
OBOF 
0B10 



ooon 

0000 
0000 
0000 
IF01 

oeos 

1900 
OBIO 
0240 
0000 



0311 
0B12 
0B13 
0B14 00 
OBI 6 00 
OBI 8 00 
081 A 00 
0B1C 00 
0B1E 00 
OB20 00 
0B22 00 
OB?* 00 
0B26 
0827 
0B28 00 
0B2A 00 
082C 
0B20 
0B2E 
082 F 
0830 
0B31 
0832 
0833 
083* 00 
0B36 00 
0838 
OB 39 
0B3A 
0B3B 
0B3C 00 
083E 
0B3F 00 
0841 
0342 
OB* 3 
08** 
OB* 5 
03*6 
08*7 
08*8 
0B*9 00 
OB* 3 00 
0B*O 00 
08*F 














6909 

6A0A 

6BU 

6S00FFB0 

C50002S0 

4C200B2C 

6500OOO0 

66000000 

C*0001*l 

F*000*30 

**180AE0 

67000000 

C0E9 

1001 

4C1009CF 

4C0009B0 

1810 

0022 

7101 

7001 

7022 

620* 

100* 

001E 

C500023O 

4C180B53 

6300 

4828 

7309 

1003 

*C180B*S 

7301 

4C280B43 

1001 

70F8 

6B00 

COOC 

E80C 

7101 

72FF 

70E9 

67800850 

D7000140 

74010B50 

700E 



OB 50 0000 
0351 0000 
OB 5 2 0000 



0853 C02C 



b t n 6 o. vmr 



BSC 

ess 

XI3UT OC 
CHOUT OC 
SEN 55 DC 

OC 
PUNK OC 

OC 
ROSW DC 

OC 
DTStf DC 



PUTAP 









/IF01 

XIOUT 

/1900 

OTSW 

/0240 





J 



EXIT 

OUTPUT AREA 
1*0 C? 
SENSE tOCC 

PUNCH 10CC 

RD SWS IOCC 

SM STORAGE 



CONVERT AND PUNCH 



HB05 STX 
STX 

STX 
LOX 

10 
8SC 
LOX 
LOX 
LO 
EOR 
8SI 
EXT2 LOX 



EX? 
EXT1 



10 
SLA 
BSC 
BSC 
HBOSA SRA 
STO 
HB06 MDX 
MDX 
«0X 
HB07 LOX 
H810 SLA 
STO 
LO 
BSC 
HT3B LOX 
BSC 
MDX 
SLA 
BSC 
MDX 
HT3B1 BSC 
SLA 

xox 

HT8X STX 

LO 
HTBZ OR 
MDX 
NDX 
MDX 
LOX 
STO 
MDX 
NOX 
• 

PCAN DC 
TEMP DC 
TEN PI DC 

1806 LO 



1 EXT»1 

2 EXT14-1 

3 EXT2*l 
LI -80 

11 KEYJN*81 
L HBOSA, I 
LI 
L2 

L 3INRY+3 
L TERN 
L PPT,»- 
L3 

DTSW 

t 
L PEDEX,- 
L PEOEN 

16 

PCAN 

1 1 
HB07 
LB06 

2 4 
4 
TEMPI 

LI KEYIN»81 
L L806,*- 

3 
*Z 

3 9 

3 
L HTBZ,»- 

3 1 
L HTBX.+2 

1 

HT0B1-1 
3 TEN» 

TENP 

TEMPI 

1 1 

2 -1 
HB10 

13 PCAM 
L3 BINRY»2 
L PCAM.l 
H806 







SAVE IXING 



SET IXING 
GET A WD 

BRANCH IF NOT 
RESTORE IXING 

GET CD NO 

CK FOR END CD 

PUNCH TRAILER IF END 

GET SMS 

BRANCH IF NOT BOTH 
PUNCH CARD 
CLEAR WD CT 

DECR IX 1 

CONTINUE 

PUNCH CARD 

SET 4 CHRS 

MOVE CHR 

SAVE 

GET WD 

BRANCH IF 

SET COUNTER 

IS IT NEC 

YES 

REMOVE 20NE 

BRANCH IF 

I NCR CTR 

BRANCH IF NEG 

MOVE BIT 

BRANCH 

SAVE CT 

GET CT 

AOO TO SAVEO 

OECR IX 1 

OECR IX 2 

LOOP 

SET IX 3 

SAVE 

INCR LDC 

LOOP 

STORAGE 



PUNCH EDIT 
H8100 GET E 



P*«T NO. 2242m 



o( < 



( I I ( 



( (. ( ■ 1 



c <: c 



SX 8£2 14970 
8C214980 
8C 2 14990 
8C215000 
8C215010 
6C215020 
8C215030 
8C215040 
8C215050 
8C2 15060 
8C 2 15070 
8C2 15060 
8C2 15090 
8C215100 
8C215110 
8C215120 
8C215130 
8C21S140 
8C215150 
8C215160 
SC215170 
BC215180 
8C215190 
8C 2 15200 
8C215210 
8C215220 
8C215230 
8C215240 
8C215250 
8C215260 
8C215270 
8C215280 
8C215290 
8C215300 
8C215310 
8C215320 
8C215330 
8C215340 
8C215350 
8C215360 
8C215370 
8C215380 
8C215390 
8C2 15400 
8C215410 
8C215420 
8C215430 
8C2 15440 
8C215450 
8C215460 
8C215470 
SC215480 
8C215490 
8C215500 
8C215510 
8C215520 
8C215530 
8C2 15540 
8C215550 
8C215560 
8C215570 
8C215580 
8C215590 
8C2 15600 
8C215610 
8C215620 
8C215630 
SC 2 15640 



pSBI 



ID 















") 





• 





( ' 


n 





n 


1* 






( "i 



r< 



( ! 



o 



r. 
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C 



08C fi 



O 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
4K EDIT COMTROt 



0B54 oe 
0B56 00 
085 8 00 
OBSA 00 
0B5C 00 
085E 
0B5F 
OB60 
0B61 
0B63 
0B65 00 
0867 

0B68 

0869 

0B6A 00 

0B6C 

OB60 

0S6E 

0B6F 

0B70 

0371 

0372 

0373 

OB 74 

0875 

OB 76 

0B77 

0878 00 

0B7A 

0378 

0B7C 

0370 






00 
00 







a 
o 
o 



















D400013F 

C4000141 

F40O043D 

4CIS0663 

C400014? 

8022 

D004 

1008 

D400013E 

66000000 

650001 3£ 

C100 
D09F 

C014 

0*000609 

4090 

7101 

C100 

0098 

COOD 

0097 

408A 

C100 

1008 

0092 

C007 

0091 

44000AFD 

7101 

72FF 

70FI 

709C 



087E 0001 

0B7F 8000 

0B80 8100 

0381 000* 

088? 0300 



0383 
0B8* 

0886 

CB87 

OS 83 

0B91 

0B9* 

0895 

089E 

0B9F 

0BA8 

OBAC 

08AD 

OB 86 

OSBA 

0BB8 

OBC* 

03CD 

0800 

08D1 

0B09 

OBOA 

0BE3 

0BE4 

OSES 

0BE6 

0BE7 

OBEA 



COFE 
00 D400013E 
6203 
7000 
0012 
0006 
FFFF 
0012 
FFFF 
0012 
0007 
FFFF 
0012 
0008 
FFFF 
0012 
0012 
0005 
FFFF 
OOOF 
© FFFF 
0012 
0002 
FFFF 
0000 
3005 
00 4C8008E5 
058A 



STO 
LO 

EOR 
8SC 
10 

a 

STO 
SLA 
STO 
L80A IDX 
L809 LOX 
LO 
STO 
LO 
STO 
BSI 
MDX 
L80T LD 
STO 
LD 
STO 
BSI 
LD 
SLA 
STO 
LD 
STO 
BSI 
MDX 
MDX 
MDX 
MDX 



ONE 

K8000 

H8IO0 

FOUR 

TREE 

• 

LB08 



DC 
OC 
DC 
DC 
OC 



PCKBE 

PCKX4 
PECX9 
PfcCXD 
PECXF 



SE002 

SM2 

SM33 
LE«<01 



HLTE 

WAITS 



LO 

STO 

LDX 

MOX 

EBC 

ESC 

OC 

EBC 

DC 

EBC 

EBC 

DC 

EBC 

EBC 

DC 

EBC 

EBC 

EBC 

DC 

EBC 

DC 

E&C 

EBC 

DC 

DC 

WAIT 

8SC 

END 



L 8INf*Y*l 
L 8INRY*3 
t TERM 
I L808,*- 
L BINRY** 
FOUR 
LBOA»I 
8 
L B1NRY 
LJ 

LI BINRY 
I 

XIOUT 
ONE 
L CHOUT 
PUTAP 
1 1 
i 
XIOUT 
ONE 
CHOUT 
PUTAP 
1 fl 
8 

XIOUT 
ONE 
CHOUT 
L PUTAP 

1 1 

2 -1 
LBOT 
EXT 



SAVf 

GET CO NO 

CK FOR TERM 

BRANCH IF TERM 

GET NO ENTRIES 

ADD * 

SAVE 

MOVE 

SAVE 

SET IXING 

GET WD 
SET 
GET 1 

SET 

PUNCH TAPE 

INCR IX 1 

GFT WD 

SET 

SET WD CT 

■PUNCH TAPE 

GET WO 

SET 2ND HALF 

SET 

GET I 

SET WO £T 

PUNCH TAPE 

INCR IX I 

OECR IX 2 

LOOP 

EXIT 

CONSTANTS 



SRC 



SRC 



SRC 



1 
/8000 

moo 

4 
/0308 



TREE GET 0300 

BINRY SET 

* * SET IX 2 

LB09 BRANCH 

.E003 CNTRL-IL! EGAL. 
. ENTRY. 
/FFFF 

•EOOS CNTRL-1442 ER. 
/FFFF 

. SSAOOI CNTRL-EDIT . 
.CD LIST. 
/FFFF 

.E002 CNTRL-ENTRY T. 
.00 LARGE. 
/FFFF 

•COOO CNTRl-ENTER 2. 
. DIGIT PID TO BS E. 
.01 TED. 
/FFFF 

.A002 END OF PRG. 
/FFFF 

.£004 CNTRL-FORMAT . 
.€«. 
/FFFF 
C 

5 RELOAD REQUIRED 

HtTE 

STARI 



SRC 



5X 



PAGE N °* 2Z4226 



261 
12* 



8C215650 

8C215660 

8C215670 

8C2I5680 

8C215690 

8C215700 

0C215710 

8C 2 15720 

8C215730 

8C215740 

8C215750 

8C215760 

8C215770 

8C215780 

8C21579© 

8C215800 

8C2S5810 

8C215820 

8C215830 

8C2 15840 

8C21585S 

8C21586Q 

8C2158T0 

8C215880 

8C2I5890 

8C215900 

8C215910 ' 

8C 2 15920 

8C215930 

8C215949 

8C215950 

8C2 15960 

8C? 15970 

8C215980 

8C215990 

8C21&000 

8C216O10 

8C216020 

8C21603O 

8C216040 

8C 2 16050 

8C 2 16060 

8C216070 

8C216080 

8C216090 

8C21610S 

8C216110 

8C216120 

9C2I613© 

8C216140 

8C216150 

8C216160 

8C216170 

3C216180 

8C216190 

8C216200 

8C216210 

8C216220 

8C216230 

8C2 16240 

8C2162S0 

8C 2 16260 

8C216270 

8C2162S0 

8C216290 

8C2I6300 



^ T io. xmv 



8C21630 8C216310 



»S I0 



0SC2-0 
12A 



r 



c ( 



^Lui ^U— 



C ( C CI - 'OC >( ( 



( (o(j C 



( ( ( c 



( X c , c 



f 
r 
f 
f 
f 
r 
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f 

c 

r 
r 

r 
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f 
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4K EDIT CONTROL 



CROSS REFERENCE LISTING 



SYMBOL VALUE 

BCK OAFE 

BGNR 0438 

BINRV 013E 



BMC 

CHOUT 

CKVN 

CKYNE 

CKYNO 

CKYN1 

COOE 

CPIO 

DKY8 

OONT 

0ONT1 

DTSH 

ENDO 

END1 

ERR 

ERR04 

EXIT 

EXT 

EXT1 

EXT 2 

FOUR 

HBO 5 

HB05A 

HB06 

HB07 

H910 

HKVB 

HLT 

HLTE 

HTBX 

HTBZ 

HTOB 

HT0B1 

H8100 

KAL 

KAQ 

KBKSP 

KC 

KCHK 

KCMA 

KCOMA 

KCR 

KDEC 

K0EC1 

KEBC2 

KEBC3 

KEBC4 

KEBC6 

KECAO 

KECGO 

KECOO 

KECPD 

KENDK 

KERR 

KERRl 

KERSE 

KEY 

KEVE 

KEYFM 

KEYIN 



0130 

0809 

0120 

077A 

0794 

0792 

0586 

07FF 

0818 

0AB1 

OAAD 

0B10 

0138 

05B9 

0439 

05E3 

0728 

0B1A 

0B1C 

0B24 

0B81 

0B11 

0B2C 

0B2E 

0B31 

0B32 

0821 

0585 

OBES 

0B43 

0B45 

0B38 

0B3F 

0B80 

0A48 

0A22 

0702 

0A41 

0621 

0A4F 

0700 

0A79 

0683 

06B4 

05FB 

0602 

0605 

061F 

0A3F 

0A1C 

0A34 

0A31 

0A47 

0720 

0735 

0A46 

012C 

05E7 

0729 

010F 



REFERENCES 
OBOOtOBOS 

059F,07A2,07B0,07BB,07C5, 08?9, OBIE, 0848,0854,0856, 
0B5C.0B61, 0865,0884 
0835, 0837, 0863, 08BC 
0AF0,0B03,0B6 A, 0871,087? 

0120,0792,0794 

077E.0783 

0788,0780 

070A, 07E6 

0136, 08IA 

0A9C 

0AB2 

0919, 0923, 0956, 09B6, OBOE, 0826 

C13A.05AF 

05A3 

0811, OB 70 

0812 

0813 

08 5E 

09B8.09B8 

0818 

0B4F 

0B2F 

0848 

0137,081B,082B,086F,0879 

0585, 08E7 
08 3F 
0B3C 

0842 
0853 
068T 

OSES, 06 2F 
06FB 

05FF 

06CE 

06E2 

05F6, 

065C 

0682 

061 E 

0620 

060E 

0611 

0668, 

0681 

065A, 

066F, 

0709 

0678,0698,0606,0706,0710,0724 

0730 

06E9 

0598, 050B,07CF,090F, 0976,0984, 0902, 0909,0 A07 

012C.05EE.05F 2, 0625, 0632, 0634, 0637 

0638,0660 

06*5,0778, 0780,0785, 078A.087F, 0915,09 36, 093E, 0992. 

099A.09A8, 09B0, O9C0,09E5,09EC,0A09,0A2A,0B16, 0834 



k t *>. imp 



o 

o o 
o 

o 

v 
r. o 

*■ . o 



r. 
r. 



o 



n 



.0621 
,06B7 



,0686 

.0683,068 6 

, 0683 , 080E,09A6,09EE 

,06A9 



r. 



PROG 
PAGE 



10 



08C2-0 



n 
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KEVNO 

KEYOG 

KEYO 

KEV1 

KEY2 

KEY 3 

KEY96 

KEY97 

KEY98 

KEY99 

KFELO 

KFMO 

KFM01 

KFM02 

KFMS 

KFMS1 

KFM2 

KFN21 

KFRN 

KHEX 

KINO 

KIN1 

K1UC 



KL 

KLRT 

KMDX 

KHPX 

KMSG 

KN 

KNBY 

KNBYO 

KNBY1 

KNBY4 

KNBV5 

KNEG 

KONE 

KOUT 

KPCO 

KPNE 

KPRT 

KROV 

KRED 

KRENT 

KSNS 

KSPC 

KSPCA 

KSPCE 

KSPC2 

KSPC5 

KSPC6 

KSPC9 

KSTO 

KTALT 

KTGLT 

KTILT 

KTIME 

KTOLT 

KTPLT 

KTVP 

KTVPS 

KTVP1 

KTYP5 

KTYP6 

KV 

KOOFF 

K0002 



?! T? 



NO. 



072 A 

0641 

0647 

064B 

0640 

06S6 

0629 

0623 

0620 

0631 

0A7A 

0670 

067E 

0686 

0658 

0659 

0666 

0667 

0636 

06B6 

080E 

0803 

010E 



0A21 

0A55 

06A8 

0681 

0A1C 

0A20 

0745 

0748 

0740 

0750 

0761 

0744 

0A2C 

0A1O 

0A28 

069F 

0A26 

0A24 

0A2A 

0A45 

0A1A 

06CC 

0714 

0725 

060F 

06E8 

06FB 

0703 

0688 

OA73 

0A50 

0A69 

0767 

0A6B 

0A65 

0768 

0584 

0769 

076C 

0773 

0A2E 

05E6 

0789 



063F, 070F 
0742 

06A6,06S5,06E6,06EF,06F2,06FF, 0708,0736, 074© 

0653 

C655 

0650 

05E8,072B 

05C9 

05EA 

OS£0 

072E 

0664* 0671 

0684 

068C 

065F 

0660 
062T 

066A 

0135,0816 
0134, 080C 

0643, 06C7, 0602, 06DC,06ED,06F8, 0700,0712,0714, 0718, 

0721, 0732, 073 8,0736,0808, 081 2, 09E7,09F0,09FF,QA05, 
0AB5 

06 8E 

0690 

0681 

0689, 06AB 

05F0.05F8, 0605, 061C.0 AID 

067F.06B1 

0649, 075C , 0765,0768 

0756 

0753 

0757 

0746,0750 

0725,0738 

05FD, 0612, 0662, 069F,06C0,06DF 

05F4, 0616,061 A, 06A1.06C2 

0648 

067C 

0769,0773 

0763.076C0A26 

064 7, 0656, 0659, 06 59, 0667, 0667, 066E.066E, 0708, 0708 
0704 

0640, 0740 

0690 

0718 

071E.072S 

06DA 

0600 

06F5 

06E8 

06B4.068C06CA 

0602, 068E 
0586, 09F5 
0749,0754 

C67A 

0584,O618,062 3,O6A4,06C5,06E4,06F0,O730,0776 

0779 
0772 
076F 

05A1 
0604, 079C 



mm* 
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PART NO. 
PAGE 



2242261 
1* 



KOO03 

K0004 

K3095 

K8000 

K8120 

IBGNR 

LBOA 

IB06 

LBOT 

LB08 

LB09 

LCH6D 

ICHBW 

LOOIT 

1001 

LEAOE 

IEM01 

IERR 

IGRQP 

LNTRf 

IKAIT 

IRTFl 

LRTF2 

UFRM 

LTRFX 

LWC 

LUCL 

LWCLO 

I WKA 

MTRM 

HO 

NHEN 

N3I 

NTPT 

ONF 

PHIHX 

M1X2 

PBIVI 

PSIV2 

•»8IY3 

PCAM 

PCKB 

PCKBA 

PCKBB 

PCKBE 

PCKBX 

PCKBI 

PCKB3 

PCK84 

PCKXI 

PCfX2 

PCKX3 

PCKX4 

POKMA 

ppKxi 

P0XX2 
POKXJ 
P0KX4 
POKVA 
PDKYB 
PDKYE 
POUVF 
PDKVM 
P1KYJ 

pdxvI 

P0KV2 
PDKVJ 
POKY 6 



K TF 



NO. 



0802 

0A20 

05E2 

0B7F 

OAM 

0AB4 

0B63 

OB53 

0B6E 

0B83 

0B6S 

OAEi 

0A08 

OAAO 

OACT 

OAFA 

OBOA 

0AC1 

043F 

OACO 

0A9C 

OADC 

0404 

0A03 

0AE5 

043E 

0AC5 

0AA9 

0A9F 

0438 

0798 

0800 

0799 

0928 

0B7E 

099C 

0A43 

09AF 

09BI 

09A1 

0B50 

0B06 

0902 

0903 

0BB8 

08FE 

080C 

08F8 

08F5 

090* 

0905 

0906 

0B94 

08C8 

08C0 

08CC 

0805 

06CA 

08Ct 

0136 

08C5 

08B2 

08A4 

0898 

0886 

088F 

0896 

08A7 



0TF5 

0588, 05B9 
0676,0696 

0438,0ABF,0AE6 

0B5F 

OB 30, OB 36 

0B7C 

0B5A 

0B8T 

OADO 

0AD5 

0727,0AA4,0AAD,0A4F 

0AC6 

0AF1 

0439, OACF 

0AA2 

043R,0AC9,0A0! 

OAAe 

0A9D.OAE3 

0A9E.0A0A 

OACE 

043C,0ADE,OAES 

0AB8,0ABA,0AB0 

043A,0AC8,OAEA 

0AA8 

OAA7.0AE7 

0T8T 

070B,07E4,07EA,07F6 

078C 

0920, 093 A 

0B69, OB 70,0676 

0?4A , 0952 , 0960,0973 ,0975 ,0983 

0946 

099E 

099F 

09AD 

0B20, 0849,0840 

0B44, 0809, 08FC, 0900 

08D8,08E0,08EA,08EE 

08FA.08FB 

791,08C7,08F7,OAC4 

08D7, 08CC08F4 

080B.08E4 

08E1 

08E8, 08F0 

0B89,08A8,08E7 

08EB 

C8EF 

08F2 

0887,0890,089E,08B4,08BA,08BF,08C1 

081E,u8A5 

0897 

08AE 

08C2 

08B1 

OADF 

088B.08AA 

08C3 

089A 

08A6 

084E 

088E 

08A2 

08AJ 
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POKY? 

P0KY8 

PDKY9 

PECOR 

PECOS 

PECXC 

PECXO 

PECXE 

PECXF 

PECX1 

PECX3 

PECX4 

PECX5 

PECX6 

PECX7 

PECX8 

PECX9 

PECVA 

PECYB 

PECYC 

PECVD 

PECYE 

PECVF 

PECY1 

PECY2 

PECY3 

PECV4 

PECV5 

PECY6 

PECY7 

PECYB 

PEO 

PEOEN 

PEOEX 

PEDXl 

PEOYl 

PE0V2 

PE0Y3 

PEDY4 

PHDSW 

PHKX1 

PHKX2 

PHKX3 
PHKX4 
PHKX5 
PHKX6 
PHKX7 
PHKX8 
PHKVB 
PHKVC 
PHKYO 
PHKVF 
PHKVH 
PHKVS 
PHKY1 
PHKY2 
PHKV3 
PHKY4 
PHKY5 
PHKY6 
PHKV7 
PHKY8 
PHKY9 
PPECO 
PPEX2 
PPEX3 
PPEVl 



DATE 

EC NO. 



08B6 

08BF 

08BB 

0907 

0967 

0990 

0B9E 

098F 

0B9F 

09 8C 

098E 

0992 

0994 

0996 

0998 

099A 

0B95 

093E 

096B 

095C 

0974 

09 3C 

090C 

0961 

0963 

0965 

092C 

0936 

097E 

0917 

0984 

09B5 

0980 

09CF 

090F 

0901 

09C7 

0908 

09C2 

0885 

087C 

087E 

087F 
0880 
0881 
0882 
0883 
0884 
0137 
0846 
0826 
0861 
0865 
0877 
0847 
0843 
0852 
085A 
0837 
0871 
0873 
0875 
085E 
09E0 
0A17 
0A18 
09F5 



mm* 



Q8B7 

,0969 

,09CS 

0950 

,09?? 

,0968 



»O"32C»O95C,09C2,09C? s 09Dt 
,0960, 098 8, 09CE, 0908 



0986,0904,0908 



©SAC 
08AF 
08C0 
0500 
099* 
095A 
094C 
0972 
0911 
0908 
096C 
0920 
0928 
0933 
0958 
09C6 
0980 
0941 
094E 
095E 
0979 
0926 



090C.0958 

0900 

090E 

092E 

0939 

0929 

0983,0984 

0931 

0953,097A,09CF 

0824 

0828 

09BF 

09CS 

09C9 

09CC 

0907, 090E 

081C,0824,084C 

0819,0822,0878 

082F.083D, 084 1.084F, 0858, 0865, 0888, 0893, 08A7.08AD, 
08E 5 

0832 

0833, 083F, 0867, 0868, 0869 

0366,0880 

086C 

0823 

0S25 

0A06 

0826 

0820 

0885 

08BE 

0827 

0836,0891,088 2 

084B 

083C0856 

085F 

oe$E 

0828 

0829 

0824 

085C0850 

0954,0978,0412 

0A01 

09E4.0A0B 

09FI 
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PART NO. 22*2261 
PACE 15 



I 



PPEY2 

PPEY3 

PPEV4 

PPEV5 

PPEY6 

PPEY7 

PPEYB 

PPT 

PPT1 

PPT1A 

PT 

PUNK 

PUTAP 

RDSK 

RDSK1 

RDSU 

ROSXO 

SCH 

SCHE 

SCHER 

SCH1 

SECB 

SECSE 

SECSU 

SEIB 

SFN55 

SER 

SERE 

SER1 

SE002 

SEl 

SE2 

SE3 

SIA 

sa 

SHE 

SILER 

SILSE 

SRSW 
SIL1 

SI MB 
SKINA 
SKINS 
SKI NO 
SKIN! 

rKii 

SKI2 

SKI3 

SKI4 

SM2 

SM33 

SRST 

SRTRV 

SSEUR 

SSUEE 

SSUER 

STARI 

START 

STBF 

STBF1 

STTR 

STTRM 

SOOFO 

SOOOF 

S0008 

SI 

S1700 

S2 



09EC 

0A14 

09EB 

OAOC 

OAOE 

0A10 

OA04 

OAED 

OAEF. 

OAEF 

0921 

OBOC 

OAFO 

0A94 

0A99 

OBOE 

0A98 

0131 

OTBA 

07CI 

07C5 

07FE 

0705 

0133 

0442 

OBOA 

0132 

07CB 

07DI 

OBAO 

0709 

07E2 

07ED 

07B6 

012F 

07A1 

07A9 

07AF 

0130 

07AC 

07F0 

0808 

0812 

0135 

013* 

0C17 

0C18 

0C19 

0C1A 

OBBB 

0B01 

0588 

0*41 

079A 

079A 

012E 

058A 

058B 

04*0 

0801 

0507 

05C3 

0788 

07C9 

07CA 

0599 

07AE 

013* 



09F4 

09F*,©*02 

0A19 

09E1 

09E2 

09E3 

0A16 

0921, OAFT, 0322 

0AF6 

091B,09IE.0978 
0B02 

OAF 4, CB06.086C, 0372,0 878 

0138, 05A6,0A99 

0A9S 

0917 

0A95 

013I.07CT 

OTBE 

7BF,07CO,OTC2 

0709, 0TC8 

0133,07D6,07F9,07FB 

0507,0801,0913 
OAFE 

ObE3,078F,07A9,08CS,08F5,OAC2 

0132, 07CC 

07CE 

05E5.0TAB 

070F 
07F2 



012F.07AC 

07A6,07B*,O7C* 

0130,0786 

07A7, 07A8 
0708, 07E0 
0808 
0815 

0641 

012C,05AB.O5C« 

0I2C.05B1 

012C 

05BT 

0590 

05DO 

0596, 05A8 

0790,0703 

012E,079B,079F,O7Al 

0599 

0BE9 

0588 

0594 

05C5 

050A 

05B5 

07B3 

0TC1 

O7B0 








c 

c, 





o 
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o 
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O5C3,OSD3,07DD,O7F3,07F? 
,070C 
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PART NO. 22422&1 
PACE ISA 



S2E 


0546 


0SC2 


TEMP 


0851 


0B43.0B** 


TEMPI 


0BS2 


0833,0845 


TERM 


0430 


0583, 05CD, 0606,0820, 0851 


TREE 


0B82 


0B83 


TRFX 


043C 




HAITI 


0771 


3001 


WAIT? 


0758 


3002 


HAIT3 


0982 


3003 


WAIT* 


0989 


300* 


WAITS 


0BF6 


3005 


WAITfe 


0906 


3056 


WAIT? 


0900 


3007 


WAIT® 


050F 


3006 


wee 


043A 




WDCT 


0AF9 


OAEF 


XIOUT 


OB08 


OAFS, OBOC, 036a,0B6F,0S?S 


XPIO 


05E1 


05A5,05A0 


YES 


0796 


0770 


YES1 


0797 


07S2 


2ER0 


0437 


0A09.0AE2 



DATE 
EC NO. 



04N0V66 
415233 
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PACE ISA 
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02 BC 



3001 079C 



3002 Of 66 



3003 09AD 



300* 0984 



3005 0C1I 



3006 0A01 



2007 0A08 



3008 05E6 



3009 
0C1? 
0C18 
0C19 
0C1A 
012C 
012D 
012E 
012F 

0130 

0131 

0132 

0133 

0134 

01 35 

0136 

0137 

0138 00 
01 3A 00 
013C 



& T * 



NO. 



0611 

07A4 

07C4 

07CB 

0709 

07E4 

07F5 

07FF 

082D 

0838 

0842 

084B 

*C800ABE 

4C0005CD 

0000 



mm 6 



ABS 

ORG 



/3001 



* 

DC WAIT1*! 1816 IS OUT OF FORMS. 

HAKE READY AND PRESS 
START. 

DC WAIT2 + 1 1816 IS HUNG IN BUSY. 

•*****.*.*..... . RESTART IS REQUIRED. 

DC «A 1*3+1 1442 IS NOT READY 

* BEFORE A READ. 

. MAKE READY AND PUSH 

* START. 

*********, ****** ***************************** 
0C WA:T4*1 1442 RFAD ERROR. 

RELOAD CARDS AND 
PUSH START TO RFTRY. 

DC Wl^i RELOAD RFOUIRED TO 

CORRECT ERROR-PRESS 
" „ START TO IGNORE. 

**«*»•*****»♦**., **************************** 

DC WAIT6»i liij is NOT READY 

Z BEFORE PUNCH. CAKE 

t READY AND PRESS START. 

******************* •*♦•*•»-***••***.>*%*»****»,** 
DC WAIT7+I l/,4? PUNCH ERROR. 

* PRESS STABT TO RETRY. 

******************* **#****»**„*» s *m„ ;v , i|>< ^ # 
DC rfAITSU END OF PROGRAM. 

* LOAD SKELETONS AND 
«*.*. — * ° RESS START TG RERUN. 

ORG 300 

3055 
5KU+1 
SKI2*l 
- SKI 3*1 
K£YE 
CKYNE 
SSUEE 
S1LE 
SlCSE 
SCHE 
SERF 
SECSE 
KIN1 
KINO 
DKVB 
HKYB 
I ROSK 
t END1 
O 



SKI 1 EOU 
SKI 2 EOU 
SKI 3 EOU 
SKI4 EOU 
KEY DC 
CKYN DC 
SSUER DC 
SIL DC 
SILSW DC 
5CH DC 
SER DC* 
SECSU DC 
SKI Ml DC 
SKI NO DC 
PDKYB DC 
PHKY8 DC 
ENDO BSC 
S2 BSC 

DC 



PART NO. 2242264 



8C300001 

8C 300002 

6C300003 

8C 30000 7 

8C300008 

8C300009 

8C300010 

8C300011 

8C300012 

8C 3000 13 

8C300014 

8C300016 

8C 300017 

8C 3000 18 

eC300019 

8C300020 

8C300021 

SC300022 

8C300023 

8C300024 

8C300025 

8C3Q0026 

8C300027 

8C300028 

8C300029 

8C300030 

8C 300031 

8C300032 

8C 3000 3 3 

8C300034 

8C30C035 

8C300036 

8C30O037 

8C300038 

8C300039 

8C300040 

8C300041 

8C300042 

SC3OG043 

3C300044 

8C300045 

8C300046 

8C300047 

8C300048 

8C300049 

8C300050 

8C300051 

8C300052 

8C3000S3 

8C30Q054 

8C300055 

8C3000S6 

8C300060 

8C 300070 

8C300080 

8C30009C 

8C300100 

8C3OO110 

8C300120 

8C 3001 30 

0C300140 

8CSOO150 

8C300160 

BC300170 

8C3001S0 

8C300190 

8C300200 

8C30021O 



PROg ,0 
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08C3-0 
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013D 


0000 


01 3E 


OOAO 


01DE 


0000 


01 OF 


0258 


0437 


0000 


0438 


OADE 


0439 


0AE8 


043A 


OAEF 


043B 


0AF7 


043C 


OBOF 


043D 


FFFF 


043E 


0000 


043F 


0000 


0440 


0000 


0441 


0000 



0442 





0000 


0443 




0141 


0584 





0792 


0585 





OCOF 


0586 





QA93 


058S 




0000 



0588 00 4C000590 



056A 00 C400006F 
058C 00 64000602 
058E 00 04QOOC6F 



0590 

0591 00 
C593 

0594 

0595 00 
0597 
0538 00 



1010 

04000127 

D029 

0039 

D4000440 

C023 

04000125 



0594 C8E0 
0598 00 OCOOOOOO 

0590 00 4480012E 
C59F OQ 4460Q12C 
05A1 0BE5 
0542 8220 

05A3 00 C400013E 
05A5 00 B4000610 
05A7 7065 
05A8 1000 
05A9 0056 

05AA 00 44000A8E 

05AC C8DB 
05AD 00 OCOOOOOO 

05AF 00 C4000C1T 
05 Bi F04E 
0582 00 4C1S05BC 

05B4 1010 
05S5 00 04O0012? 



DATE 
EC NO. 



41S233 



BINARY WORO COL'NT 



8WC DC 

BINRY BSS 160 

KIKC DC 

KEYIN BSS 600 



ZE3 DC 

BGNR DC 

ERR DC 

WCC DC 

HTRM DC 

TRFX DC 

TERM DC 

LWC DC 

LGROP DC 

STBF DC 

SRTRY OC 
• 
» 
* 

********* EDIT IMAGE BUFFER •****»**,* 



/cooo 

LBGNR 

LERR 

LWCC 

LMTRM 

LTRFX 

/FFFF 




/OOOO 



WC STORAGE 
GROUP COUNTER 
DISPLACEMENT 



SEI8 

8SS 
KTYPS DC 
HLT DC 
CDOE OC 

sss 

SRST BSC 



STAR1 LD 
A 

STO 
* 

START SLA 
STO 

STO 
STO 

STO 
LD 

STO 

LDD 
STD 

« 

BSJ 
BSI 
OC 
DC 

LD 
CMP 

MDX 
NOP 
STO 



/OOOO 

321 

KTYP 

HLTE 

KTILT 



START 



RESTART 
CONTROL SECTION 



/006F 
K1048 
/006F 

16 

/0127 

SVIX3*1 

ENDl-fl 
STBF 
BSAD1 
/0I25 



S2E 



BSI 

LDD 
STD 

LO 

EOR 

BSC 

SLA 
STO 



SRST 
/OOOO 

SSUER 
KEY 
SH2 
/8220 

BTNRV 
KOOFF 
ERRM 

XPIO 

RDSK 

SRST 
/OOOO 

SKI1 

XPIO 
SV1X3,*- 

16 

/012? 



CHANGE LDR BASE ADR 
CLEAR ADDRESSES 

RESET BSE ADRS 
SET RESTART 



SET ERROR RETURN SRC 

ENTER PJD SRC 



GET ENTRY 

SAVE 

R2 A SKEL^ON SRC 

RESET RESTART 



GET PiD READ 

IS IT PID DESIRED 

YES 

CLEAR LOR RFLOCAT 



PART NO. 2242^64 
PAGE IA 



BC300220 

8C300230 

8C300240 

8C300250 

8C300260 

8C 300270 

8C300280 

8C 300290 

8C300300 

QC300310 

8C300320 

8C300330 

8C300340 

8C30O35O 

8C300360 

8C3O037O 

8C30O36O 

8C3O0390 

8C3004O0 

EC300410 

8C300420 

8C300430 

BC 300440 

8C30G442 

8C300443 

8C30044* 

8C3004!>0 

9C300460 

8C3OO470 

8C300480 

8C30049G 

8C3OO500 

8C300510 

SC 300520 

8C30O53O 

9C300540 

8C30G550 

8C300560 

SC30057O 

8C300572 

BC3G0580 

8C300S90 

8C300600 

8C300610 

8C300620 

8C30063O 

8C300640 

BC300650 

8C300660 

8C300670 

8C300680 

8C300690 

8C300692 

8C300694 

8C30O696 

8C300700 

80300710 

8C300720 

8C 300730 

8C300740 

8C300750 

8C300760 

8C300770 

8C300780 

8C300790 

80300800 

8C30081O 

8C300820 
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05 B 7 COOS 
058 8 00 04000125 
05 BA 70EF 
05BB 0C17 



05BC 
056E 
05C0 
05Ci 
05C3 
05C4 
05C5 
05C6 
05C8 
05CA 
05CC 



05CD 

05CF 

0501 

0502 

05D4 

0506 

0508 

05DA 

05DC 

0500 

050F 

05EI 

05E3 

05E4 

OSES 

05fc6 

05E7 

05E9 

05EB 

05EC 

05EE 

05*0 

05F1 

05F3 

05F4 

05F6 

05F7 

05F9 

05F8 

05F0 

05FE 

05FF 

0600 

0601 

0602 

0603 

0604 

0600 

060F 

0610 



00 67000000 
00 C4000127 
8040 
00 07000603 
D003 
7301 
6BF7 
00 C*000000 
00 F4000430 
00 4C180C1A 
7000 

00 67000000 
00 C 7000604 
D001 
00 C4000000 
00 F400043D 
00 4C1805E7 
00 C7000604 

640007E3 

0003 

740105CE 



00 



00 

00 4C00O000 



00 











44S0012C 
0BF8 
0000 
3008 
?0A9 
00 C400044O 
00 8400082B 
0001 
00 65000000 
00 C4000C17 
C100 
00 C400043D 
0101 
00 44000931 
1010 
00 0*000440 
00 65000142 
00 04000441 
71FF 
70FC 
7061 
0000 
0C18 
0418 
0000 
O009 
00 %4800132 
0BD7 
OOFF 



DATE 

EC NO. 



ivmt 



ID 

sin 

MDA 
BSAD1 DC 

SVIX3 LDX 
LD 
A 

STO 
STO 

MIX 
STX 

LD 

FOR 
BSC 
MDX 



»LFT 



* 
END I 



8SADI 
t /012S 
S2E 
/0C17 

LJ 

t /0127 
BSADR 
13 RLTRI 
RLF1*I 

3 I 

3 5V1X3*S 
L 
I TERM 
L S«14,«- 



LDX 
LO 
STO 
RtFTl ID 

EOR 

esc 

LO 
A 

STO 
MDX 
RLFT2 BSC 
EN3 BSI 
DC 
OC 
WAITO tefiST 

MQX 
STTRM LO 
A 

STO 
LDX 
LD 
STO 
LD 
STO 
BSI 
SLA 
STO 
IDX 
STO 
MDX 
MOX 
MOX 
XPJD DC 
BS6DR DC 
KI048 DC 
RLT6L DC 

8SS 
E«*04 BSI 

DC 
KQOFF DC 

* 
* 
* 



STTR 



13 

13 RlTBl«l 

RLFJl*l 



TERM 

STT<?M,»- 
L3 RLTm«| 

i K0002 

RLFT2*! 
L EN0I*1,1 
L 
I KEY 

S*33 

/oooo 

8 

START 
STPF 
STBFj 
•♦1 

e 

SMI 



TERM 

1 

PFCOR 

16 

ST6F 

322 

SEI3-1 

-! 

STTS 

END 



3096 

1048 



9 

SFK 

SE002 

/OOFF 



L 

L 
L 



L 
L 

LI 
L 

I 
I 

I 
t 

L 
IS 

L 
t 



RESET BSE ADRS 
READ NEXT 
BASE AORS 

IX 3 « TBL IOC 

GET RFL FACTOR 
COMPUTE ADRS 
SAVE 

SNCR IX 3 

SAVE 

GET CO NO 

IS IT A TERM 

START PROG 

READ MORE 

IX 3 « TBL ADRS 

GLT ADRS 

SAVE 

CET CD NO 

IS II • TERM 

YES 

Gtt ADRS 

ADO 2 

SAVE 

SET FPR KEST 

GO TO NFXT 

ENO Of PSOGRA" 



GET DISPLACEMENT 

COMPUTE AORS 

SAVE 

IX 1 « AORS 

GET P10 

SET 

SET 

PUNC" CARDS 
7ER0 ACCUM 
CLEAR DISPL 

tlf AS CO 6f« 

OECR IX I 

LOOP 

GO TO END 

PfO STORAGE 

CONSTANTS 

T8L C* Rfl FACTORS 



SRC 



SRC 



PfiJNUR l/D aoutlNE 



CALL 



SS! KEY 
DC MSf.AD 

DC :» 



ID BIT KEYBOARD 
XOXX NO CONV 



BC300830 

6C30084O 

8C300850 

8C300860 

8C300870 

8C300880 

8C300690 

BC3O090O 

8C300910 

8C300920 

8C 300930 

BC300940 

8C300950 

8C 300-560 

8C300970 

8C300980 

8C300990 

8C301000 

8C301010 

8C301020 

8C301030 

8C301040 

BC3010S0 

8C301Q60 

8C301070 

8C301080 

8C30I090 

8C301100 

8C305110 

8C30II20 

8C30113C 

8C 301140 

8C30I150 

8C301S60 

8C30H70 

8C301S80 

8C30U90 

8C30I200 

SC30I2IO 

8C30I220 

8C301230 

8C30I240 

8C30I250 

8C301260 

8C 301270 

RC30S280 

8C301290 

8C301300 

8C30I310 

8C301320 

8C 301330 

RC301340 

"C301350 

8C301360 

8C30I362 

RC 101366 

6C 301366 

SC30137C 

8C30138O=, 

8C301390 

s fJOI*00 

8C30!*I© 

8C30I426 

8C 301430 

0C3OI44O 

SC301450 

8C 301460 

8C3Q14G0 



PROG ID 
PAGE 



0611 


0000 


0612 


6941 


0613 


6A4? 


0614 


6B43 


0615 00 


0C000A4C 


0617 


2843 


0618 00 


C4R00611 


061 A 00 


0400GA46 


061C 00 


74010611 



061E 00 6500QA47 
0620 00 C4000AA3 

0622 1808 

0623 1008 

0624 0100 

0625 00 C48Q0A46 
062 T 00 S4000A56 
0629 00 4C1S064S 



0628 
062C 
062 E 
062F 
0631 
0632 
0631 
0634 
0635 
0636 
063 7 
0638 



6208 
00 67000A7& 
710! 
00 C*f00A4& 
1A00 
1006 

leos 

F300 

0100 
iOOS 

7301 



OS 4C20962F 



063S 8 
063B 



7200 

TOOD 



0&3C 00 C430QA56 
063E 810S 
063F 0108 
0640 00 65300A4? 
06'2 00 44000792 

0644 00 6S00D446 
0646 00 74OS0A46 
0648 70DC 



04*5* 
0644 



&208 
70E1- 



0648 00 65000**3 

0540 00 440007«? 

0&4F 00 C4R0061! 

0651 00 4C28O660 



065 3 00 65000003 

0655 00 £6000000 

0657 00 67000000 

0659 00 CC00044C 



• 

KEVE DC 
STX 
STX 
STX 
STO 
STS 

LO 

STO 

MOX 



/oooo 

1 KEY96+1 

2 KEV97»1 

3 KEY98+1 
L KAQ 

KEY99 

I KEYE 
L KMSG 
L KEYE, I 



LDX LI KOUT 
LO L KCR 



SRA 

SLA 

STO 

* 

KE3C2 LO 
A 
8SC 



8 

8 

1 

I KMSG 
t KONC 
I KCHK,*- 



XI XX DEC CONV 
X2XX HEX CONV 



SAVE STATUS 



FETCH MESS AORS 

POINT TO ID 

SET CARRIER RETURN 

CLEAR EBDIC CODE 
STORE IN OUTPUT AREA 
CHECK TERMINATOR 
BR JF NO "ORE "ESS 



LOX 2 s 
KE3C3 LDX J.3 KTGLT 



KESC4 LD 
SRA 

SLA 

SRA 
FOR 

STO 
SLA 
MOX 

8SC 

MOX 
MDX 



1 I 

I KMSG 

2 O 
« 
P 

3 

1 
9 

3 t 
t KEBG4.2 

2 
KE8C6 



CONVERT CHARS TO RTT 
FETCH EBDIC CHARS 



IS 

A 

STO 



I KONE 
E 
I 

LDX L! KSJUt 
SSI t KTTP 



LEX LI KOUT-i 
»DX I KMSG,! 
"OX KEBC2 



BR IF NO'i THE CriAR 
SKIP IF 2 ChASS CNV1 

SET TERMINATOR 

GO PRINT CHARS 

POINT TO NEXT WORD 



CONVERT SECOND CHAR 



KESC6 LDS 2 

KDX KEBC3 

kChk lok LI kc* 

8S1 t RTYP 00 CAR RET SRC 

LO I KEYE 

BSC t K*RM,«7 br if K9D f- m *Y 

KtY96 LDX tl /OOOO 

KEY9T IDS I? /OOOO 

KEY98 LOB L3 «006 

LOO I KAg 



RESTORE STATUS 



8C301402 

8C301484 

8C301490 

8C301500 

8C301510 

8C301520 

8C301530 

8C301540 

SC301550 

6C3015oO 

8C301570 

8C301580 

8C301590 

6C301600 

BC301610 

8C301620 

SC301630 

BC301640 

8C301650 

8C301660 

8C301670 

8C301680 

8C301690 

SC301700 

8C301710 

8C301720 

8C3O1730 

8C3017*O 

9C301750 

8C30I760 

8C301770 

8C301780 

8C301790 

8C305800 

8C301810 

8C30SP20 

8C301830 

6C301840 

8C301650 

8C301860 

8C301670 

8C301P8O 

8C301890 

8C 301900 

8C301910 

SC301920 

8C 301930 

8C 301940 

8C301950 

8C3C1960 

RC3019T0 

8C301980 

8L305990 

8C30200O 

8C30201O 

8C302020 

8C302030 

8C302040 

8C302050 

8C302060 

8C302070 

BC302080 

8C302090 

8C302100 

8C3021IO 

8C302120 

8C302130 

8C302140 



ORCS-0 



w* 



NO. 



imv 



PROG ID 
PAGE 



0SC3-0 
2A 



( ( 

C ( 



f 
r 
f 

r 



<<<<<< ( ( < ( ( < < < < 

ccccrccrrccccccc 



( ( t ( ( ( i I ~i 7 A A A 

c c c c c ( c c ( ^ ( ( ( c 



IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE iBOO SYSTEM 
8K EDIT CONTROL 



065B 2000 

065C 00 74010611 
065E 00 4C800611 



KEY99 LOS 

"OX L KEYE.l 

BSC I KEYE RETURN EXIT 

•J******************************************* 
*#* ***************************** **» ********** 

• 



0660 1090 


KFRM 


SLT 




16 


FETCH FORM NUMBER 


0661 00 C 4800611 




LD 


I 


KEYE 




0663 100* 




SLA 




4 




0664 18CC 




RTE 




12 




0665 00 04000753 




STO 


L 


KEYFM 


SAVE FORM NO 


0667 1604 




S«A 




4 




056B 1084 




SLT 




4 




0669 00 D400P7S4 


* 


sro 


L 


KEYNO 


SAVE CHAP/HD COUNT 


0668 00 44800134 


* 

KEVOC 

# 




BSI 


I 


SKIN1 


SET KEVIN TO C FFF 


066D 00 6F0OO1DE 


STX 


L3 


KIMC 


RESET WD CT 


066F 00 67OO01DF 




LDX 


L3 


KEYIN 


RESET READ AREA 




************* 


********************* IF *********«> 


0671 00 &F00QA54 


KEYO 


STX 


L3 


KRFO 




0673 CO 4400376F 


^ 


8SI 


L 


KNBY 


WAIT FOR NOT SUSY 


0675 00 OC00OA52 


KEY! 




XIO 


L 


KPCD 


SET KEYBOARD PROCEED 


0677 00 0CQQ0A4* 


KEYS 


XIO 


I 


KSNS 


SENSE STATUS 


0679 1001 




SLA 




I 




067A 00 4C2SO680 


* 


BSC 


L 


KE¥3,*2 


GO READ KEYBOARD 


067C 1005 


SLA 




5 




0670 00 4C100675 




BSC 


L 


KEYS*- 


BR IF NOT PROCEED 


067 F 7DF? 


KEY3 




HDX 




KEY2 




068 00 OC000454 


XIO 


L 


KRED 


READ KEYBOARD 


0682 6108 


KFMS 


LDX 


1 


II 


CHECK FOR DEC OR SPC 


0683 C300 


KFMS1 


LD 


3 


KPED-KRFD 


FETCH CHAR READ 


0684 00 F5000A5B 




EOR 


LI 


KECOD-I 




0686 QO 4C1806DD 


* 


BSC 


t 


KDCC»«- 


BR IF DEC CR SPACE 


0688 TIFF 


MDX 


i 


-1 




0689 TO* 1 * 


£ 


MDX 




KFMS1 




068A 00 C4000753 




LO 


L 


KEYFM 


CHECK FOR FORM 


068C 00 F4000A56 




EOR 


I 


KONE 




068E 00 4C1S06A7 




BSC 


L 


KFMO.+- 


BRANCH IF FORM 1 




*s *****». ***************************** ** *****& 


0690 O 6106 


KFM2 


LOS 


1 


6 


CHECK FOR HEX 


0691 C300 


#F«2l 


ID 


3 


KRED-KRED 


FETCH CHAR READ 


0692 00 F5000A68 




EOR 


LI 


KECAD-l 




0694 00 4C1806E0 


• 


BSC 


L 


KHEX,+- 


BR IF ALPHA 


0696 71FF 


KOX 


1 


-l 




069? 70F9 




Mor 




KFM21 




069B C300 




LD 


3 


KRED-KRED 


FETCH CHAR READ 


0699 00 F400QA5B 




EOR 


L 


KECPD 


, 


069e 00 4C2O06A7 




8SC 


f_ 


KFM0.2 


BR IF NOT PERIOD 


0690 C3FC 




LO 


3 


-4 


A PLUS OR MINUS 


069E 6291 




LDX 


2 


I 




069F 1240 




SLCA 


2 







0660 00 F4000BS9 




EOR 


I 


*8ooe 




06* 2 00 44200757 




BSI 


L 


KERR e Z 


6R IF NOT * OR - 


06A4 00 C4000A8F 




LD 


L 


KTPLT 




06A6 7022 




MDX 




KPNE 




HATE 04K0V** 
EC NO. 41523^ 
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8C302150 
8C302160 
8C302170 
8C302180 
8C302190 
8C302200 
8C302210 
8C302220 
8C302230 
8C 302240 
8C302250 
8C 302260 
8C302270 
8C302280 
8C30229Q 
8C302300 
8C3023I0 
8C30232O 
SRC 8C302330 
8C302340 
8C302350 
8C302360 
8C302370 
SC302380 
8C 3 02390 
9C302400 
8C302410 
8C3G2420 
8C 302430 
8C30244S 
8C302450 
6C302460 
SC30247Q 
6C302480 
8C30249O 
8C3G2503 
8C302510 
SC302520 
6C302530 
8C302540 
8C 102550 
8C302560 
8C302570 
8C3O2580 
8C30259S 
8C3Q2&S0 
8C302610 
8C3O2620 
8C3O2630 
8C3C264Q 
8C302650 
8C 302660 

ac3026?e 

BC 302680 

8C3O2690 
8C302700 
8C30273.0 
8C302720 
SC302730 
BC 30273 I 
8C302732 
8C302733 
SC302734 
6C302735 
8C302736 
8C30273? 
8C302738 
8C302735 



PROG ID 

PAGE 



0SC3-0 
3 



( ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
8K EDIT CONTROL "^ 



06A7 
06 A8 



610B 
C300 



06A9 00 F5000AS6 
OoAB 00 4C1806D2 



06 AD 
06 A E 



71FF 
70F9 



06AF 

06 BO 
06Bi 
06B3 
06B5 
06B6 
06B7 
06B8 
06 B A 



6107 
C300 
00 F500OA71 
00 4C1S06DB 
71FF 
70F9 
C300 
00 F4000A4B 
00 442005F6 



06 BC 

Q6BD 
06BE 

06BF 
06C0 OD 



6201 

C3FA 
1002 
1240 
F40Q0BA9 



06C2 00 44200757 



06C4 
C6C5 

06C6 
Q6C7 00 
06C9 00 
OoCS 00 
06CD 
O&CE 00 
06DO 00 



C3FA 

1802 

B3FA 

C4000A7F 

EC000A56 

6S000A47 

DIOO 

44000792 

4C000671 



OoD2 C30C 
06D3 00 F4000&5C 
06D5 00 4C2006DB 

C300 

180C 

100C 

0300 

7111 

7001 



0607 

06BS 

06D9 

06DA 

ObDB 

060C 



O&DD 7118 
06DE O 4003 
06DF S 7091 



O6E0 D 7S23 
OfcEl 70FC 



P6E2 0000 
06E3 C300 
06E4 E8FF 
0&ES 1804 
06E& 00 ^C9806E2 

C6E8 00 C5000A79 
06EA 00 ECOOOASfe 



DATE 

EC NO. 



04N0V6& 

+15233 



******************************* **»********<*** 



*.r*a ldx l 8 

KFMOl LD 3 

EOR LI KN-1 

BSC L KMDX,*- 



MDX 
MDX 

* 

LDX 

KFM02 LD 
EOR 
BSC 
MDX 
MDX 
LD 
EOR 
BSI 



1 -1 

KFMOl 

1 7 
3 

LI KAL-1 
L KMPX.+- 

1 -1 
KFM02 

3 
L KL 
L KSPC2 



CHECK UC SP CHRS 
GET CHR READ 
CK AGAINST TBL 
CHAR FOUND 
DECR IX 1 
LOOP 

CK LC SP CHRS 
GET CHR READ 
CK AGAINST TBL 

CHARACTER FOUND 

DECR IX 1 

LOOP 

GET CHR READ 



LDX 

LD 

SLA 



2 I 

3 -6 
2 

SLCA 2 
EOR L K8000 
BSI L KERR, 2 



BR IF NOT 1 OR ZERO 



LD 
SRA 
STO 
LS 
KPNE OR 



3 -6 

2 
3 -6 

L KLRT 
L KONE 



LDX LI KOUT 



STO 
ESI 
BSC 

• 

KM5X LD 
EOR 
BSC 
LD 
SR£ 
SLA 
STO 
MDX 
MDX 



K«S»X 



1 
L KTYP 

t KEYS 

3 
L K.ECPO+1 
L KMPXjZ 
3 
12 
12 
3 

1 KN-KECGB 
•CDECl 



BRANCH 

<=ETCH CHAR 

BR IF NOT * SIGN 
MAKE ♦ * /8Q00 



ADJ %% 



*********** *•*****»#***«*#*»#***:»*#** *****£ at * 

* 



KDEC MDX 

KDEC1 BSI 
* 

hds; 

« 

KHEX MCX 
*DX 



I KECQD-KECGD CORCT XR1 

KSTQ GO STORE * PRT SRC 

KEYO RETURN C 0R NEXT 



J «FCAD-KECGD 
KDEC1 

* 
• 

KSTO BC 
LD 

OR 
SRA 
BSC 
m 

LD 

OR 



.'0300 
3 
3 -1 
* 
1 KSTO s +- 

Ll KTGLT-I 
L KONE 



GO PRINT A - F 
t********£ ****** 

STORE AND PRINT RTN 

BR IF SECOND S»ACE 
FETCH TYPR CHAR 
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8C302740 

8C302750 

8C302760 

"C302770 

8C302780 

SC302790 

8C302800 

8C302810 

8C307820 

SC302830 

8C302840 

8C302850 

8C 302860 

8C302870 

8C302880 

8C302890 

8C302900 

8C302910 

8C302920 

BC302«30 

8C302940 

8C302950 

SC302960 

SC302970 

SC302980 

9C302990 

8C303000 

eC3O301O 

8C303020 

BC303030 

SC303040 

8C303050 

8C303060 

8C3030T0 

8C303080 

%C303090 

8C3C091 

8C303092 

8C303093 

8C30309* 

8C30309S 

8C3O3096 

8C303097 

8C303100 

8C30311Q 

8C303120 

8CS03130 

8C303140 

eo303150 

RC303160 

8C303170 

8C303180 

8C303190 

8C303200 

8C303210 

8C3O3220 

8C 303230 

BC303240 

8C303250 

SC303260 

8C303270 

8C3032SC 

8C303290 

8C303300 

8C303310 

8C303320 

8C303330 

8C303340 



PROG !D 
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r 



06EC 00 
06EE 
06EF 00 


65000A47 

0100 

44000792 


• 


LDX 
STO 
BSI 


LI 
1 

L 


KOUT 



KTYP 


06FI 00 
06F3 


7401010E 
7301 


• 


MDX 
«OX 


L 
3 


KIHC.l 
1 



06F4 00 4C8006E2 



06F6 0000 

06F7 C300 
06F8 00 F4000A79 
06FA 00 4C2007I2 

06FC 00 C400010E 
06F£ 00 940007E3 
0700 00 44280757 

0702 C3FF 

0703 ISO*, 

0704 00 4C180709 
0706 00 740101DE 

0708 7301 

0709 00 C4000A56 
0708 03FF 

070C 03 650Q072A 
070E 00 44000792 

0710 DO 64000671 



0712 C3Q0 

0713 00 F4000A70 
0715 00 4CZOG720 

0717 00 C40001DE 
0719 00 4C080&71 



0718 
071C 00 
071E 
071F 
0721 
0722 00 
0724 
072 5 00 
0727 



G 

00 





C3FF 

4C 04 0671 

1801 

4C 04 072 5 

73FF 

74FF010E 

1000 

6500072C 

406S 



0728 00 4C00067I 

Q72A 8000 
072B 8101 
072C 1101 

072D C300 
072E 00 F4000A6F 
0730 00 441S0757 

0732 C300 

0733 00 F4000A71 
0735 00 4C20067I 

0737 00 C400010E 
0739 901* 



DATE 
EC NO. 



04N0V6& 

415233 



SSC 1 KSTO 



TYPE CHARACTER 

UPDATE KEYBOARD BUF 

RETURN TO USER 



********************************************* 

SPECIAL CHAR CHECK 



FETCH KEY CHARACTER 
BR IF NOT A COMMA 

ER IF COMMA TOO SOON 
FETCH LAST ENTRY 
SR IF SPACE LAST 



KSPC 


DC 




/oooo 


* 










LO 


3 







FOR 


L 


KCMA 




BSC 


L 


KSPC5.Z 


» 










LO 


L 


XIMC 




S 


L 


K0002 




BSJ 


L 


SCERR,*Z 


* 










LD 


3 


-1 




SRA 




«■ 




BSC 


L 


KSPC2,*- 




M3X 


s. 


KIwCt+1 




MDX 


3 


♦ 1 


KSPC2- LD 


L 


KGNE 


& 


STO 


3 


-I 




LDX 


LI 


KCQMA 




SSI 


L 


KTYP 



LDX L KEYO 



SET FIELD PROTECT MK 

GO PRINT ♦ OR- 
RETURN FOR MORE CNR 



FETCH KEY CHARACTER 
BR IF NOT ERASE CHAR 

BR IF WORD COUNT ZERO 

CHECK PROTECT BI" 

BR IF LAST KORO PROTO 

DO BKSP OVER PERIQ8 
DECREASE WORD COUNT 



KSPCS LO 
FOR 
6SC 

LD 

8SC 



3 
1 KERSE 
L KS»C9,Z 

L KIHC 
L KEYO,+ 



LO 
BSC 

SRA 

BSC 

MDX 

MDX 

*!0P 
KSPC6 LDX LI KBKSP 

851 KTYP 

♦ 

BSC L KEYO 



3 -1 
I KEYO,E 
1 

L KSPC6,E 

3 -i 
L KIWC-1 



00 A BACKSPACE 
RETURN 



SRC 



**#**#** ********** ****e****«i****ft***ft 1 **» s>> , # 



KC3HA DC 

DC 

K6KSP DC 

KSPC9 LD 
EOR 

BSI 

* 

LO 

FOR 
BSC 

LD 
S 



/8000 
/8101 
/1101 



COMMA RESPONSE 



FETCH KEY CHAR 



3 
t KRENT 

L KERR,+- BR IF ERASE FIELD 

3 KREO-KRED FETCH CHAR READ 
t KENOK 
i KEY0*Z 8R IF NOT EOF KEY 



L IUKC 

f.EYKO 



FETCH WORD COUNT 



8C303350 

8C303360 

8C303370 

8C303380 

8C303390 

8C303400 

8C303410 

8C303420 

8C303430 

8C303440 

8C303450 

8C303460 

8C303470 

8C303480 

8C303492 

8C303500 

8C303510 

8C303520 

SC 303530 

8C303540 

8C303550 

8C303560 

8C303570 

8C303580 

8C303590 

8C3036G0 

8C303610 

8C303620 

8C303630 

8C303640 

8C303650 

8C303660 

8C303670 

8C303680 

8C303&90 

8C303700 

8C3O3710 

8C303720 

SC 303730 

8C303740 

8C3037SG 

SC 303760 

8C303770 

8C303780 

8C303790 

8C30380S 

SC3038I0 

8C303820 

8C303830 

SC30384G 

8C303850 

8C303860 

8C303870 

8C303880 

8C303890 

8C3C3900 

8C3O3910 

8C303920 

8C303930 

8C303940 

8C303950 

8C303960 

6C30397O 

8C303980 

8C303990 

8C30400S 

BC3O40£O 

8C3C4O20 



PROG ID 
PAGE 



08C3-0 



n 



1 



') 



073A 00 
073C 00 
073E 
0740 
0741 
0742 
0744 
074 5 



44280757 

658001DE 

C50001DE 

1804 

1004 

D50001DE 

71FF 

70F8 



0746 C3FF 



0747 
074 8 00 
C74A 
074 B 
074 
074 E 
074F 
0750 
0751 00 
0753 
0754 
0755 



00 











00 



1804 

4C20074F 

73FF 

74FF01DE 

7001 

4008 

C01E 

0300 

4&00OACA 

0000 

0000 

4C000653 



075 7 0000 
075 8 00 650G0AA4 
075A 4037 

CrSB 7301 
075C 00 740I010E 
075E 61FF 
075F C3FF 
0760 00 4C040671 



07e2 


COOB 


076 3 


0300 


0764 


73FF 



0765 00 T^FFOIOE 

0767 70F? 

0768 00 C400010E 
076A 00 'C100671 
076C 00 4C00066S 
076E FFFF 



076 F 


0000 


0770 


6A1B 


0771 00 


6600000A 


0773 00 


6E000791 


0775 00 


66007FFF 


077? 00 


OC0OOA44 


0779 


1004 


077A 00 


4C10078B 


07TC 


72FF 


0770 


70F9 


077E 00 


74FFG79I 


0780 


70F4 


0781 00 


6600078? 


0783 00 


6E000003 


0785 


3002 


0786 


70EA 


DATE 
EC NQ. 


HOT* 



BSI 

LDX 
KSPCA LD 
SRA 
SLA 

STO 

MDX 
MDX 



LO 



L KERR,»Z 
II KIWC 
LI Kit* 

4 

4 
LI KIWC 
1 -1 

KSPCA 



TOO FFH EmTRIFS 
CLEAR FIELD PROT 



BIT 



3 -1 



SRA 

BSC L 
MDX 3 

MDX L 

MDX 

bSI 
KSPCE LO 

STO 3 

SSI L 
KEYFM DC 
KEYND DC 
EXIT BSC L 

* 



RE«OV'E SP BEFORE 
TEP«INATF 

KSPCE, Z 
-1 

KIWC.-l 
KSPCE 

KERR 

KHEG 



LOOIT 

/OOOO 

/0003 

t£Y9& 



5R IF NQ SPACE THERE 
DECREMENT WORD CCJNT 



SET Tf R«!NAT ION 

LET LLOYD CO IT 
FORM NUM9ER 
CHARS / TORD 



KERR DC 
LDX 
BSI 

MDX 

HQX 

I OK 
KE^Rl LO 

BSC 
* 

LO 

STO 

«40X 

* 

LD 

BSC 

SSC 
KNEG DC 

* 

KNBY DC /OOOO 

STX 2 KNSY5«1 

LDX L2 10 

STX L2 KTI«SE 

KNBYO LDX L2 /7FFF 

K\'8Y1 XIO L KSNS 



/OOOO 
LI KFELD 
KTYP 

3 1 

L KIWCtI 
1 -1 

3 -i 

I. KEYQ.E 

3 
3 -1 
L KIHC,-l 
KERKI 

I <C1W 
t KEYO,- 

L KE YOG 
-1 



PRINT F5FLD CAK'CFLLD 
TYPE SRC 



ERA.SE TO FIELD MARK 
BR 3F FIELD MARK 



DECREMENT WORD COUNT 



CONSTANT MINUS ONE 



SLA 

BSC 
MDX 

MDX 
MDX 
MDK 



* 



4 

L KNBY5,- 
Z -I 

KNBY1 

L KTI*E„-I 

KN6Y0 



LDX L2 KNBY4 

STX LZ 3 

WAIT? mir 2 

MDK !CNSY*2 



TYPR NOT SUSY RTN 

SET TIME COUNTER 

CHECK BUSY 

BR IF NOT BUSY 

CHECK AGAIN 
DECREMENT TIMER 

TYPR HUNG UP BUSY 
1816 HUNG UP BUSY 



8C304030 

8C304040 

8C304050 

8C304060 

3C304070 

8C304080 

BC30409O 

9C304I00 

8C304110 

8C304120 

BC304120 

8C304I40 

8C304150 

8C304160 

8C304170 

8C304180 

8C304190 

8C30420O 

8C3042I0 

8C304220 

8C304230 

8C304240 

8C304250 

8C304260 

8C304270 

PC304280 

8C304290 

8C304300 

8C3043I0 

8C304320 

8C304330 

8C304340 

9C304350 

8C304360 

8C304370 

8C304380 

8C304390 

8C304400 

8C304410 

8C304420 

8C304430 

8C3G4440 

8C304«5,3 

8C304460 

8C304462 

8C30446* 

8C304470 

8C304480 

8C304490 

6C304500 

BC304510 

8C304520 

8C304530 

8C304540 

8C304S50 

8C304560 

8C304570 

9Ci04580 

SC304590 

8C304600 

8C304610 

8C304620 

8C304630 

8C304640 

8C 304650 

8C304660 

8C 304670 

8C304680 



PROS ID 
PAGE 
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1BH MAINTENANCE DIAGNOSTIC PR0SRA1 FOR THE 1800 SYSTEM 
«K EDIT CONTROL 



0787 00 660001 2C 


KN3Y4 LDX 


L2 300 


RESTORE RESTART 


0789 00 6E000003 


* 
KN3Y! 


STX 


L2 3 




078 B 00 66000000 


> LOX 


L2 /OOOO 


EXIT 


0780 00 0C000A4E 




X!0 


L 


KROY 


RESET 


078F 00 4C80076F 




BSC 


I 


KNBY 




0791 0000 


KTIME 


OC 




/OOOO 


TIME COUNTER 




• 




• 
• 








PRINTER OUTPUT RTN 




• 








XR1 = ADRS OF MESS 


0792 0000 


KTYP 


oc 




/OOOO 




0793 00 600004 50 


KTYPI 




STX 


LI 


KPRT 


SAVE PRINTING ADDR 


0795 40D9 


$ 


8S1 




•CNBY 


WAIT OFR NUT BUSY 


0796 00 0C000A4E 


KTYP5 


XIO 


L 


KRDY 


CHECK READY 


0798 3005 




SLA 




5 




0799 00 4C1Q079D 




8SC 


L 


KTYP6.- 


BR IF READY 


0798 3001 


HAITI 


WAIT 




1 


PRINTER OUT OF FOR) 


079C 70F9 


ft 


MDX 




KTYP5 




0790 00 OCOO0A5O 


KTYP6 


X20 


L 


KPRT 


OUTPUT ONE CHAR 


079F C100 




to 


I 







OTAO 00 4C640792 


* 


6SC 


I 


KTYP.E 


EXIT IF MSG PRIM 


w7i? 710i 


MDX 


I 


1 




OTA 3 70fcF 




MOS 




KTYPI 




07A4 0000 


CKYNE 


DC 









07A5 00 C400010F 




LD 


t 


KEVIN 


GET ENTRY 


07A7 F0I8 




EOR 




YES 


IS IT Y LC 


07A8 00 4C1807BE 




SSC 


t 


CKYNO,*- 


YES 


07AA 00 C400G1DF 




LD 


L 


KEYIN 


GET ENTRY 


07AC F014 




EOR 




Y6S1 


IS IT Y LC 


07A0 00 4C1807BE 




BSC 


L 


CKYNO*+- 


YES 


07AF 00 C4Q0Q1DF 




LD 


L 


KEYIN 


GET ENTRY 


0761 F010 




EOR 




NO 


IS IT N LC 


0762 00 4CI607BC 




SSC 


L 


CKYN1,*- 


YES 


0784 00 C40001DF 




LD 


t_ 


KEVIN 


GET ENTRY 


0786 FOOC 




EOR 




N01 


IS IT N UC 


0787 00 4C1807BC 





BSC 


L 


CKYN1**— 


YES 


0789 00 44800132 




SSI 


| 


SER 


NOT Y OR N 


07SB 0B82 




oc 




PCK8E 




078C 00 740107A4 


CKYN1 


MDX 


t 


CKYNE.l 


INCH RETURN 


078E 00 4C8007A4 


CKYNO 


BSC 


I 


CKVNE 


EXIT 


07C0 2020 


YES 


DC 




/2O20 


LOWER CASE Y 


07CI 8060 


YES1 


DC 




/S060 


UPPER CASE Y 


07C2 4100 


NO 


DC 




/4100 


LOWER CASE N 


07C3 8120 


N31 

» 


DC 




/8120 


UPPER CASE N 




• 

* SET UP RETURN ON ERROR 


07C4 0000 


SSUEE 


DC 




/OOOO 




07C5 COFE 




LD 




SSUEE 




0TC6 901C 




S 




K0002 




07C7 00 04000441 




STO 


L 


SRTRY 




07C9 00 4C8007C4 




SSC 


I 


SSUEE 




ore* 


SSE'JR 


EOU 




SSUEE 





SE 



SRC 



SX 



OSECK IF INTERRUPT 
IS TO GREAT 



LEVEL 



OATE 

EC NO. 



04N0V66 
415233 



r r r c c c c 
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8C304690 

8C 304700 

8C304710 

8C 304720 

8C304730 

8C304740 

8C304750 

BC 304760 

8C304770 

8C304780 

8C304790 

8C304BO0 

8C304810 

8C304820 

8C30*830 

8C304840 

8C304850 

SC304860 

8C304S70 

8C304880 

8C304890 

8C3Q4900 

8C304910 

8C304920 

8C304930 

SC304940 

8C304950 

8C30496Q 

8C304970 

8C30498Q 

8C304990 

8C 30 5000 

8C305010 

8C305020 

8C3O503O 

8C305040 

8C305050 

8C305060 

8C30507O 

8C305080 

8C30S09© 

8C305100 

8C305110 

8C305120 

8C30S130 

8C305I40 

8C305150 

8C305160 

8C305170 

8C305180 

8C305190 

8C305200 

8C30521G 

8C305220 

8C305230 

8C 305240 

8C305250 

8C305260 

8C305270 

8C305Z80 

8C305290 

8C305300 

8C 305310 

8C305320 

8C305330 

8C305340 

8C305350 

8C30S360 



PROG ID 
PAGE 



08C3-6 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
BK EDIT CONTROL "-*« 



orcB 





OOOO 


07CC 


00 


C400013E 


07CE 





1008 


07CF 





BG08 


0700 





7002 


0701 





7004 


0702 





7003 



07D3 00 '.4800132 

0705 0B07 

0706 00 4C8007CB 
0708 1700 



0709 OOOO 
070A 00 C400013E 
07DC 1004 
07DD B004 
07DE 70F4 
070F 1000 



O7E0 00 4C8Q07D9 

07E2 OOFO 
07E3 0002 



07E4 

07E5 00 
07E7 
07E8 
07E9 
07EA 



OOOO 

C400013E 
BQOC 
7002 

7005 
7004 



07E3 F007 
07EC 00 4C1807EF 
07EE 70E4 

07EF 00 C40G0S3E 
07F1 00 4C8007E4 
07F3 OOOF 

07F4 0008 
07F5 OOOO 
07F6 00 C480C7F5 
07F6 D002 

07F9 00 4480012C 
07FS OOOO 
07FC OOOO 

07FD 03 4C6O0441 



07FF OOOO 

0800 00 C48007FF 

0802 0024 

0803 6A24 

0804 6924 
0S05 6B24 
0806 C024 



K T &. 2iW 



SUE 



SILER 



OC 
LD 
SLA 
CMP 

MOX 
MDX 
MOX 

BSI 
DC 



SIL1 

S1700 DC 



BSC I 



BINRV 

8 

SI 700 

SILER 

S1L1 

SIL1 

SER 
SE002 

SUE 

/1700 



GRCATER ERROR 



SUSE 



CHECK IF USW IS VALID 



s 
* 
SI4 



DC 
LO 
SLA 

CMP 
MDX 
NOP 



BSC 



SOOFO OC 

K0002 DC 

* 

* 

* 

SCHE 



/OOOO 
BINRY 
4 
SOOFO 

sues 
o 



SUSE 

/OOFO 
2 



ERROR 



CHECK CHANNEL VALUE 



SCHER 



DC 

LD 

CMP 

MDX 

MDX 

•SOX 

FOR 
BSC 

MDX 



* 
SCHI. 



LD 
BSC 

SOOOF DC 

# 

S0008 DC 

SERE OC 
LD 
STO 



SERI 



BSI 

DC 

DC 



/OOOO 

L BINRY 

S0006 

SCHER 

SCHI 

SCHI 

SOOOF 
L SCHI,* 
SILER 

L BINRY 
I SCHE 
/OOQF 

/GOQB 
/OOOO 
I SERE 
SERI 

I KEV 
/OOOO 
/OOOO 



ERROR 



FETCH ERROR ADDRESS 



ADDPESS 

ID 



BSC I SRTRY 



SECSE OC 



SET UP ROUTINE 

X2= CARD NUMBER 



SE1 



LD 
STO 
STX 
STX 

STX 
LD 





SECSE 

S1WB 
SECB 
CPID 
NOEN 
STBF1 



GET MSG ADRS 

SAVE 

SET CD NO 

SET PIO 

SET NO OF ENTRIES 

GET EDIT IMAGF ADRS 



SE 



4 —i < ( ( ( 

C ( ( ( I 
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8C305370 

8C305380 

BC305390 

8C305400 

8C305410 

8C305420 

8C305430 

8C305440 

8C305450 

8C305460 

8C305470 

6C305480 

8C305490 

8C305500 

8C305510 

8C305520 

8C305530 

8C305540 

8C305550 

8C305560 

8C305570 

8C305580 

8C305590 

8C3056O0 

8C3056I0 

8C30562O 

8C305630 

8C305640 

8C305650 

8C305660 

BC305670 

8C305680 

8C305690 

8C305700 

8C305710 

8C305720 

3C3O5730 

8C 305740 

8C305750 

8C30576O 

8C3057T0 

8C3057B0 

8C305790 

8C305800 

8C305810 

8C305820 

8C 305830 

8C305840 

8C30585O 

8C30S860 

8C305870 

PC3058SO 

8C305890 

8C305900 

PC305910 

8C305920 

8C 305930 

8C305940 

8C305950 

SC305960 

8C305970 

8C305980 

8C305990 

8C306000 

8C306010 

8C 306020 

8C306030 

8C 306040 
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OEC3-0 
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0807 

0809 

080A 

080C 

08 OE 

0810 

0811 

0812 

0613 

0314 

0615 

0816 

0817 

0818 

0819 

081 A 

081 B 

081C 

08 ID 

081 F 

0820 

0e21 

0823 

0825 



00 84000440 
D093 
00 65800827 
00 67000000 
00 6680082A 
O C018 
D300 
C015 
D301 
C015 
D302 
7303 
C100 
0300 
7101 
7301 
72FF 
70FA 
00 C4000440 
800C 
8009 
00 B4000440 
00 740107FF 
00 4C8C07FF 



0827 O 

0828 

0829 
082A O 
0828 O 
082C O 

082D 
082E CO 

0830 00 
0832 00 
0334 

0835 

0836 00 



0000 
0000 
0000 
0000 
0442 
0003 

0000 

67000258 

C400043D 

070001DE 

73FF 

70FC 

4C800820 



083 8 OOCO 

0S3 9 00 67000258 

083B 1010 

033C 00 D70001DE 

083E 73FF 

083 F 70FC 

0840 00 4C8GC838 



0342 
0843 
0844 
0845 
0846 00 
084 8 00 
084A O 










0000 

D862 

COFO 

D005 

040008AF 

C40008F7 

7005 



0843 
084C 
084D 
084E 
084 F 
085Q 
0851 



0000 
D859 
C05F 
0060 
C05E 
001F 
2S4F 



DATE 

EC NO. 



04*0 VJ6 



*I52| 



SE2 



SE3 



« 

SECB 

CP10 
NQEN 
STBF1 
K0303 DC 



A 

STO 

LDX 

LDX 

LDX 

LD 

STO 

LO 

STO 

LD 

STO 

MOX 
LD 

STO 

MDX 

MDX 

MDX 

MOX 

LD 

A 

A 

STO 

MDX 

BSC 

DC 
DC 
DC 
DC 
DC 



L STBF 
SE2*1 

11 SIWB 
L3 

12 NOEN 
CPID 

3 

SECB 
3 1 

NOEN 

2 

3 





1 

1 

-1 

SE3 

STBF 

K0003 

NOEN 

STBF 

SECSE.l 

SECSE 

Q 





SEIB 
3 



3 
3 
1 
3 
1 
3 
2 



SET 

IX 1 * MSG ADRS 

IX 3 « STARTING ADRS 

IX 2 = NO ENTRIES 

GET PIO 

SET 

GET CD NO 

SET 

GET NO ENTRIES 

SET 

INCR IX 3 

GET AN ENTRY 

SET 

INCR MSG ADRS 

INCR BFR AORS 

DECR NO ENTRIES 

LOOP 

ADD 3 

ADD NO ENTRIES 



SS 



••♦♦•♦mMjutjttt^,,, 



KINl 



SKINA 



OC 

LOX 

LD 

STO 

MOX 

MDX 

BSC 





L3 600 
L TERM 
L3 Kiwr 
3 -1 
SKINA 
I KINi 






INCR RETURN 
EXIT 

MSG ADRS 

CARD NO 

PID 

NO ENTRIES 

CD BFR ADRS 

CONSTANT 3 

SE 

SET IXING 

GET FFFF 

SET KEYIN AREA 

DECR 1X3 

LOOP 

EXIT sx 



KINO DC 
LOX 
SLA 

SKINB STO 
MDX 

MDX 

ssc 





L3 600 
16 

1.3 KIHC 

3 -1 
SKI*,6 
I KINO 



SET IXING 
CLEAR ACCUM 
CLEAR KEYIN AREA 
DECR IX 3 
LOOP 
EXIT 
DEC KEYBOARD TO BINARY RT 



SE 



SX 



OKYB 



DC 

STO 

LO 

STO 

STO 

LB 

"OX 



rtKVe OC 
STO 
LD 
STO 
LO 

PHKYD STO 





PHKX1 

DKYB 

HKYB 

PHDSW 

P0KX1 

PnKYO 



SAVE A ♦ 



SET HEX-DEC SH « DEC 

CONSTANT 10 

ENTER COMMON SECTION 



HEX KEYBOARO TO BINARY RT 



STS 





PHKXS 
PHKX7 
PHDSW 
PHKXS 
PHKYC 
PHKYS 



SAVE A ♦ 
CONSTANT ZERO 
SET HEX-DEC SW 

SET CONV CK 
SAVE STATUS 



HEX 



8C3060S0 

8C306060 

8C306070 

8C 3 060 80 

BC 3 06090 

8C306100 

8C306110 

8C306120 

SC306130 

8C306140 

8C306150 

8C306160 

8C306170 

8C306180 

8C 306190 

8C306200 

8C306210 

8C306220 

8C306230 

8C306240 

8C306250 

8C306260 

8C30627Q 

8C306280 

8C3U6290 

8C306300 

8C30&310 

8C306320 

8C306330 

8C306340 

8C306350 

8C 306360 

8C306370 

8C306380 

8C306390 

8C306400 

8C306410 

8C306420 

8C306430 

BC306440 

8C306450 

8C3O6460 

8C3G6470 

8C 306480 

8C306490 

8C306500 

8C306510 

8C30652Q 

8C306530 

8C3O6540 

8C30&550 

8C306560 

8C306570 

8C306580 

6C30659C 

8C3Q6600 

8C306610 

3C306620 

8C306630 

8C 306640 

8C306650 

8C306660 

8C306670 

8C30&680 

8C306690 

8C306700 

8C3067I0 

8C30£720 



PROG ID 
PAGE 



08C3-S 
& 



- 



0852 





6949 


0853 





6A4A 


0854 





6B4B 


0855 


00 


6780084B 


0B57 


00 


C 7000000 


0859 





D04E 


085A 


00 


C780O001 


085C 





804C 


0850 





D04C 


085E 





1810 


085F 


00 


D400013D 



0861 00 
0863 00 
0665 

0866 

0867 00 
0869 00 
086B 00 
0860 
086E 00 
0370 
0871 
0S73 
08 74 
0875 
08 76 00 
0878 



00 






66S0013D 

760001 3D 

6A0C 

6A16 

6530G8A8 

758008AA 

678G08A8 

C100 

44000900 

0010 

oroooooo 

71FF 

13FF 
70P7 

740008AF 

7037 



0879 00 
037B 
08 7C 00 
087E 
007F a 
08 SO 
0881 
08B2 00 
0884 O 
0885 
068 6 
0887 
0886 
0869 
088A 
088B 00 
0880 00 













67S008A8 
1040 

C7OOOOO0 

1864 

73FF 

70FB 

63FC 

778008AB 

1884 

7300 

7001 

7002 

7301 

70^A 

I EDO 

06000001 

74010130 



088F 
0890 O 
0S91 
0892 



C018 
801A 
8018 
DOIT 



0893 00 67S0O8AA 

0895 C30O 

0896 F015 

0897 O 4820 
089S 70C8 



STX 

STX 

STX 

LOX 

LO 

STO 

LO 

A 

STO 



SRA 
STO 



* 

°HKV5 LOX 
MDX 
STX 

STX 

LDX 
MDX 
LDX 
PHKY2 LO 

Bb! 
PHKYC OC 
PHKY1 STO 
MDX 
HDX 
MDX 
MDX 
MDX 
* 
* 



1 PHKY6-M 

2 PHKY7+1 

3 PHKY8*1 
13 HKYB 

L3 

PHKX2 
1 

PHKX3 
PHKX4 



13 



SAVE XI 
SAVE X2 
SAVE X3 



SAVE CHAR/WORD 
GET AODR OF DISf 
C01PUTF START ADDR 



16 
SKC 



INITIALIZE BjfvPY BUFFER 



RE*SET rfCRD COUNT 

CONVERT NUMBER TO HEX 

* AND STORE IN PINARY BUF 



2 

2 

II 



LDX 
SLT 
PHKY3 LD 
SRT 

MOX 
MDX 
LOX 
MDX 
PH«CY4 jsj-y 

MDX 
MDX 
MDX 
PHKY9 MDX 
MDX 
RTE 
PHKYF STO 
KDX 
* 
* 
* 

PHKYH LD 
A 
A 

STO 
LDX 
LD 
EOR 
BSC 
MDX 



12 8WC 

L? eiNRV-1 
PHKYI+i 
PHKY3+1 
PHKX2 

II PHKX4 

13 PHXX2 
1 

L PCKB 

16 
L3 
1 -I 

3 -t 

PHKY2 

i. PHDSW, 

PDKY1 



SET X? TO NFXT 

• AVAILABLE SPACE -1 



SET Xi TO STARTING 

* ADOR * NO" CHAR/ WO 
SET X3 TO CHAR/WD 
GET NUMBER 
CONVERT TO BINARY 
L1M CK x 16 OR 10 
PLACE IN BINRY BUFF 

SKIP hHEN DONE 

CK HEX-D C C SK 
BRANCH TO DEC RT 



PACK BINARY 



13 "HKX2 

3? 
L3 O 
4 

3 -i 

PrtKYS 
3 -4, 
13 PHKX2 
4 
3 

PHKY9 
PHKY9«-2 
3 I 

PnfCY4 
16 
L2 1 
I BWC,I 



SET *3 TO CHAR/WC- 



R1GHT JUSTIFY 



PLACE IN BINRY BUFF 
8UKP WORD COUNT 



PHKX2 
PHKXS 
PHKX4 
PHKX4 
13 PHKX4 
3 

PHKX6 

Z 

PhKYS 



B'J»P TO NEXT KEftN FIELD 

GET CHAR/WD 

ADD ONE FOR SPACE 



CK FOR TERMINATOR 
SKIP IF FOUND 
GET NEXT NUMBER 

EXIT FROM RT 



8C306730 
8C306740 
8C306750 
8C30&760 
8C306770 
8C306780 
RC306790 
8C306800 
8C306810 
8C306820 
8C306S30 
8C306840 
8C306850 
8C306860 
" 8C306870 
8C306B80 
8C306890 
BC306900 
RC306910 
8C306920 
8C306930 
8C306940 
8C306950 
8C306960 
6C306970 
8C3069R0 
6C306990 
8C307O0O 
8C307010 
8C3O7O20 
8C307030 
8C307040 
8C307050 
8C307060 
8C307070 
eC307080 
8C307090 
8C3O71O0 
8C30711P 
8C3C7120 
8C307130 
8C307140 
8C307150 
8C3O7160 
BC 307170 
8C307160 
eCSOTi^o 
8C3Q7200 
8C3C7210 
PC 3" 7220 
8C 307230 
8C 3 07240 
8C307250 
8C30T260 
SC307270 
8C3C7280 
8C307290 
8C307300 
8C307310 
8C3O735-0 
8C307330 
8C307340 
8C307350 
8C 307360 
8C307370 
8C307380 
8C307390 
8C3074O0 
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8* EjIT CONTROL 



PART NO. 2242764 
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0899 00 7402O84B 


HDX 


L HKY8.2 




0S96 00 65000000 


PHKY6 LOX 


LI 


RESTORE REGS 


0990 00 66000000 


PHKYT LOX 


L2 




0S9F 00 67000000 


PHKYB LOX 


L3 




0SA1 2000 


PHKYS L3S 







08A2 C803 


LOO 


PHKX1 




08 A 3 00 4C80084B 


ESC 

* 


I HKYB 


EXIT FROM SUBRT 


08A6 0000 


* 

BSS 


E 




08A6 0002 


PHKX1 BSS 


2 


SAVE A + a 


08 A 3 0000 


PHKX2 DC 





CHAR PER WORD 


0SA9 01DE 


PH<X3 3C 


KEYIN-1 




OSAA 0000 


PHKX4 OC 





STARTING A DOR 


08 A 9 0001 


PHICX5 OC 


1 


CONSTANT I 


08AC FFFF 


PKKX6 DC 


/FFFF 


CONSTANT FFFF 


OSAD 0000 


PHKX7 DC 


O 


CONSTANT 


OPAE 0010 


PH1CX8 DC 


16 


CONSTANT 16 


08AF O 0000 


PHOSW DC 

• 





HEX-OEC SWITCH 




• 


CONV NUH to oec and stc 




* 




* 


IN BINARY BUF 


OSSO 10A0 


PDKY1 SLT 


32 




Os SI D840 


STO 

• 


POKHA 


ZERO OUT WORK AREA 




* 




CK 


FOR 9 CH/HD 


08B2 C0F5 


f o 


PHKX2 


GET CH/HD 


08B3 00 B400092E 


c*p 


L PCKX1 


COMPARE TO 9 


0BB5 7039 


MDX 


POKYE 


ERROR TOO GREAT 


08B6 7001 


MDX 


**1 




0SB7 90F3 


s 


PHKX5 


SUB ONE 


08B8 0001 


STO 


P0KY2+I 




0SB9 00 67000000 


PDKY2 LOX 


L3 


LOX MDOIFIEC CH/WD 


0S8B 00 66300872 


LDX 


12 PHKY1+1 




08BO 00 76S008A8 


HDX 


12 PHKX2 


SET UP 1ST POHER 


08BF 6100 


LOX 


1 




08C0 C200 


PDKV3 L3 


Z 


GET BIN NUMBER 


0SC1 00 A50008F6 


M 


LI PDKX2 


MULT BY POHER 


08C3 71FC 


MDX 


I -4 


CK FDR CH/HD GRT * 


Q8C4 7009 


MOX 


PDKYM 


CH/HD CRT 4 


08C5 7104 


POXYi MOX 


1 4 




08C6 1000 


SL# 







08C7 882A 


AC 


PDKHA 




0SC8 0829 


STO 


POKHA 




08C9 7101 


MOX 


1 1 




OSCfc 72FF 


HDX 


2 -I 




08CB 73FF 


MOX 


3 -1 




08CC 70F3 


MDX 


P0KV3 




OS CO 7003 


MOX 


P0KY6 




08CE 1800 


PDKYW RTE 


16 


CH/HD GRT * 


08CF A02A 


M 


PDKXI+3 


HULTIPY BY 10,000 


0800 70F4 


rax 


POKYJ 






• 




CK 


FOR SIGNED NUMBER 


0801 C006 


PDKV6 LO 


PHKX2 




0SD2 00 B400092E 


CMP 


L PCKX1 


CONS 9 


0804 701A 


MOX 


POKYE 


ERROR TOO GREAT 


080S 7001 


KDX 


#♦1 




08D6 7009 


MDX 


PDKY7 


CK SISN 




• 


CK 


FOR CH/HD GREATER 




# 


* THAN 5 


0807 COOO 


LO 


PHKX2 




0806 B026 


CMP 


PDKX3 


CONS 5 


0609 700F 


MOX 


P0KY8 




oeoA o 7ooi 


MOX 


*♦! 




!Tno. MBIT 









BC 307410 

8C307420 

8C 307430 

8C 307440 

8C307450 

BC 307460 

8C307470 

8C307480 

8C 307490 

8C307500 

8C307510 

8C307520 

8C307S30 

8C307S4G 

8C307S50 

8C 307560 

8C307570 

8C307580 

8C 307590 

8C307600 

8C307630 

8C307620 

8C 307630 

8C307640 

BC 307650 

8C307660 

8C307670 

8C3C7680 

8C307690 

8C3 07700 

8C307710 

8C307720 

BC 307730 

BC 307740 

BC307750 

8C307760 

8C307770 

aC307780 

SC307T90 

8C307800 

8C307810 

8C307820 

8C307830 

8C30J840 

8C307850 

8C 307860 

8C307870 

8C307880 

8C307890 

8C307900 

8C307910 

8C307920 

8C307930 

BC307940 

8C3079S0 

8C307960 

8C 307970 

8C307980 

BC 307990 

8C308000 

8C308010 

8C308020 

8C 308030 

8C308G40 

8C 3 08050 

BC 308060 

8C308070 

8C308080 



EHf I0 



*SC3-0 



08DB 700F 


MDX 

• 


PDKYA 


GO TO CK FOR /7FFF 




• 


SINGLE PRECISION NUMBER 


080C 00 668008 72 


PDKYF LDX 


12 PHKYI+I 




OBOE C014 


LD 


PDKHA»1 


GET CONV NUMBER 


08DF 70AB 


MDX 


PHKYF 






• 


CORRECT SIGN 


08E0 C200 


PDKY7 LD 


2 




0BE1 00 4C1808E9 


ESC 


L P0KY8,*- 


BRANCH IF POS NUMB 


08E3 10A0 


SLT 


32 


CHANGE SIGN 


08E4 9800 


SO 


POKHA 




0SE5 OAOO 


PDKY9 STD 


2 




08 E 6 CO 740201 3D 


MDX 


L BHC.2 




08E8 70A6 


MOX 


PHKYH 




08E9 C808 
08EA 70FA 


PDKY8 LOO 
MDX 


PDKHA 
PDKY9 


DOUBLE PREC POS NUMB 




• 


CK 


LESS THAN OR EO /7FFF 


08E8 C806 


PDKYA LDO 


POKHA 




08EC 9807 


SO 


P0KX4 


CONS OOOOOPOOO 


08ED 00 4C2808DC 


BSC 


L PDKYF, +Z 


BRANCH TO SINGLE PREC 


08EF 00 44800132 


PDKYE BSI 


I SER 




08F1 OB82 


DC 


PCKBE 




08F2 0000 


BSS 


E 




08F2 0002 


POKHA BSS 


2 


HORK AREA 


08F4 0000 


P0KX4 DC 





CONS /OOOOROOO 


08F5 8000 


OC 


/8000 




08F6 0001 


PDKX2 DC 


1 


CONV TABLE 


08F7 OOOA 


PDKXl OC 


10 




08F8 0064 


OC 


100 




08F9 03E8 


OC 


1000 




08FA 2710 


DC 


10000 




08FB OOOA 


DC 


10 




03FC 0064 


DC 


100 




08F0 03E8 


DC 


1000 




08FE 2710 


OC 


1OO00 




08FF 0005 


PDKX3 DC 

• 
* 
* 


5 


CONS 5 




• 
• 
* 




KEYBOARD TO BINARr RT 


0900 0000 


PCKB DC 







0901 6B27 


STX 


3 PCXBX+1 


SAVE X3 


0902 D029 


STO 


PCKBA 


SAVE NUMBFR 


0903 00 C480Q90Q 


LD 


I PCKB 


GET LIMIT CK 


0905 0001 


STO 


PCKei*! 




0906 00 67000000 


PCKBl LDX 


L3 


SET X3 TO LIH CK 


0908 00 C7000A5E 


LD 


L3 KECOD 


LK Uf> CODE 


090 A F021 


EOR 


PCKBA 




090B 00 4C 180922 
090 D 73FF 
090E 70F9 


BSC 

MDX 
MDX 


L PCKB3,*- 
3 -1 

PCKB1+2 


BRANCH IF FOUND 
SKIP IF ILLEGAL 


090F 00 C40008A8 
0911 901C 


LD 

s 


L PHKX2 
PCKX1 


CK FDR 9 CHAR FIELD 


0912 00 4C20091F 
0914 C017 


BSC 
LD 


L PCKB4,Z 
PCKBA 


GO TO ERPOR IF NOT 9 
CK FOR ♦ 


0915 F019 


EOR 


PCKX2 




0916 00 4C1 80926 


BSC 


L PCKBX-2,*- 




0918 C013 


LD 


PCKBA 


CK FOR - 


0919 F016 


EOR 


PCKX3 




091 A 00 4C2U091F 
091C 00 C40008BE 


BSC 
LD 


L PCKB4.Z 
L PCKX4 


GO TO ERROR, NO ♦ - 


09 IE 7007 


MDX 


PCKBX-2 




091F 00 4480013Z 
0921 0BB2 


PCXB4 BSI 
DC 


I SER 

PCKBE 


IMPROPER KEV CODE 
* l.E NOT 0-9 OR 0-F 


?c at no. zm? 









8C308090 

8C308100 

RC308110 

8C308120 

8C308130 

"C308140 

8C308150 

8C308160 

8C3f>8!70 

8C308180 

8C308190 

8C308200 

8C 3082 10 

8C308220 

8C 308230 

8C 308240 

9C308250 

8C308260 

8C30827O 

8C308280 

8C30829Q 

8C308300 

BC308310 

8C308320 

9C308330 

8C308340 

8C30835O 

8C 308360 

8C308370 

8C308380 

8C3O8390 

8C308400 

8C 3084 10 

8C308420 

8C308430 

8C308440 

8C308450 

6C30R460 

8C308470 

8C308480 

8C 308490 

8C3O850O 

8C3Q8510 

SC3O8520 

BC308530 

8C3085&0 

8C308550 

8C308560 

8C308570 

8C3085B0 

8C308590 

8C308600 

8C308610 

SC308620 

8C308630 

SC308640 

8C308650 

8C 308660 

8C308670 

8C308680 

8C30869C 

8C308700 

8C308710 

8C308720 

8C308730 

8C 308740 

8C308750 

8C308760 
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IBM MAINTENANCE DIAGNOSTIC PROSRAN FOR THE 1800 SYSTEM 

8K EDIT CONTROL ~>«^ 



0922 
092 3 

0924 

0925 

0926 00 
092 8 00 
092A 00 

092C 
092 D 
092E 
092F 
0930 



T3FF 

1000 

6808 

C007 

74010900 

67000000 

4C 800900 

0000 
0000 
0009 
8000 
4000 



0931 
093 2 00 
093* 
0935 
0936 
0037 
093 S 
0939 00 
0933 
093C O 




O 

O 




0000 

0C0009B6 

285C 

1610 

6955 

6A56 

6657 

4480012C 

08C9 

0000 



093 D 00 
093F 00 
0941 00 
0943 00 
094 5 00 
0947 
094 8 00 
094A 
0=4 B 00 
094D 00 

094 F 
0950 00 
0952 

095 3 00 
0955 
0956 
0957 
0958 00 
095A 
095 B 00 
095D 









66000442 

650001EO 

0C000B38 

C4000B3A 

4C28094B 

1001 

4C28094B 

7007 

44000617 

C4000E3A 
1001 

4C 100966 

0868 

4C0409A8 

0866 

0867 

1801 

4C040956 

180C 

4C0409AE 

0862 



095E 1810 
095F O 6350 
0960 00 EF0001DF 

0962 73FF 

0963 70FC 

0964 00 4C200952 



0966 

0967 



K T * 



NO. 



1810 
63B0 



»wr 



MDX 
SLA 
STX 
LO 

mox 

LOX 
BSC 

DC 
DC 
OC 
DC 
DC 



PCKB3 



PCKBX 

• 

PCKBA 

PCKBB 

PCKX1 

PCKX2 

PCKX3 

• 



PECO* OC 
STO 
STS 
5.RA 

PECVF STX 
STX 
STX 
BSI 
OC 
OC 

LDX 

LOX 

PECY7 XI 
LO 
BSC 
SLA 
BSC 
MOX 

PT BSI 

LO 
SLA 
BSC 

NTPT XIO 
BSC 
XIO 

PEC ¥4 XIO 



3 -1 


3 PCKBB 

PCKBB 
L PCKB.l 
L3 
I PC KB 





9 

/8000 

/4000 



GET CONVERTED NUM 
RESTORE X3 



ORIGINAL NUM8ER 
CONVERTED NUMBER 



PUNCH EDIT CARD OUTPUT ROUTINE 





PECX1 

PECOS 

16 

PECY1*! 

PECV2U 

PECY3+1 

KEY 

PECXF 





SAVE REGISTERS 



PRINT EDIT CARD LIST 
* MESSAGE 



READ A CARD AND VERIFY 
* THAT If IS BLANK 



SRA 

asc 

SRA 
BSC 
XIO 

SRA 
LDX 

PEEY5 OR 
MDX 
MDX 

BSC 

* 

PES YE SRA 
LOX 



LZ SEI8 
LI KEYIN+1 
L RDSW 
L DTSH 
L PT f *2 

1 
I PT.+2 

NTPT 
L PPT 
L DTSH 

1 
L PECVE,- 

PECX5 
L PECY6.E 

PECX4 

PECX5 

1 
. PECV4.E 

12 
. PECY8.E 

PECX6 



SET X2 = EO IMAG BL'F 
XI = OPT REG 
READ DATA SWS 
GET SWS 
BRANCH IF P T 

BRANCH IF BOTH 
NOT PAPER TAPE 
PUNCH LEADER 
GET SWS 

BRANCH IF NOT BOTH 

SENSE DSH 

XFER IF NOT READY 

READ A CARD 

SENSE DSM 

CK BUSY 

XFER IF BUSY 

XFER IF ERROR ON 
RESET OSK 



SRC 



CK FOR BLANK CARD 



16 
3 80 

L3 KEVIN 
3 -I 
PECY5 
L NTPT, Z 



BLANK OUT OUTPUT BUFF 



16 
3 -80 
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8C 308770 

PC 308780 

6C308790 

8C308800 

8C3G8810 

8C308820 

8C308830 

8C308840 

8C308850 

8C308860 

8C308870 

8C308880 

8C308890 

8C308900 

8C308910 

8C308920 

8C308930 

8C308940 

8C308950 

8C308960 

8C308970 

8C308980 

8C308990 

8C 309000 

8C 3090 10 

8C309020 

8C309030 

8C 309040 

8C309050 

8C309060 

8C309070 

8C309080 

8C309090 

8C309100 

8C309110 

8C309120 

8C309130 

8C309140 

8C309150 

SC309160 

8C309170 

8C309180 

8C309190 

8C309200 

8C 309210 

8C309220 

8C309230 

8C309240 

8C309250 

8C309260 

8C309270 

8C309280 

8C309290 

8C309300 

8C309310 

8C309320 

8C309330 

8C309340 

SC 309350 

8r3093feO 

8C309370 

8C309380 

8C309390 

8C3O940O 

8C309410 

8C 309420 

8C309430 

8C309440 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
8K EDIT CONTROL 



096 8 00 D7000230 
096A 7301 
096B 70FC 

096C 00 6700FFB0 



096E 00 C4000A6D 

0970 D100 

0971 7301 



0972 O C200 

0973 O 1008 

0974 4051 



PECYA STO 

MDX 

mux 

* 

LOX 

LD 
STO 

* 

* 

* 

LD 

SLA 

BSI 



L3 ICEY2K+8! 
3 1 

PECYA 



L3 -80 



l pei*2 
1 c 

3 t 



SET X3 = CCL CONTROL 



SET E INTO OUTPUT AREA 



SET PIO INTO OUTPUT APEA 



0975 
09 76 00 
097B 00 
09 74 00 
097C 
097D 
097E 00 
0980 00 
09e2 00 
0984 
0985 
0986 
0987 
0988 00 
098A 



* 
* 



2 

8 

PSlrtX 



CDNV TO HFX AND 
* STORE IN OUTPUT 



SRC 



CK FOR END OF ED CD DIR 










C201 

F4000BC8 

4C200995 

C400CBC8 

4049 

4061 

44000AOA 

C40C0B3A 

4C28098B 

0835 

083C 

0837 

1801 

4C040986 

0835 



098B 00 65000000 
0980 00 66000Q00 
098F 00 67000000 

0991 2000 

0992 C8Z3 

0993 CO 4C800931 

0995 C20I 

0996 E821 

0997 402E 



ID 

EOR 

SSC 

LD 

BSI 

ESI 

BS! 

LO 

BSC 

XIO 

XIO 

XIO 

SRA 

SSC 

XIO 

LOX 
LOX 
LOX 
LOS 
LOD 
BSC 

LD 
OR 
SSI 



0998 

0999 
099 A 
099B 
099C 
099 D 









099E 
099F 
09A0 
09A1 00 
09A3 
09 A 4 
09A5 
09A6 











09A7 



C202 
1888 
1S10 

1088 
D01C 
4028 

C203 

4026 
7201 

74FF09B9 

TOFA 

403A 

4064 

72C3 

TOAS 



09A8 00 4480012C 
09AA OBBF 



PECYC 



peers 

MECr2 
"ECV3 
PECOS 



PECYB 



* 

* 

LO 

SRT 
SRA 

SLT 
STO 
BSI 

• 

PECYO LD 
BSI 

MDX 

MDX 
MDX 
BSI 
BSI 

MDX 

MDX 

PES ¥6 BSI 

oc 



PECXD 
rECfB,Z 

PECKD 

PED 

PPECO 

DTS.C 

°ECY1,*2 

PECXC 

PECX7 

PECX5 

1 

PCCTC.E 

cfCxfc 



BRANCH IF NOT END CD 

SET FFFF EDIT 5ND 

CONV AND STORE 

PUNCH CARD 

PRINT THE EDIT CARD 

GET SWS 

BRANCH IF NOT CARDS 

STACKER SELECT 

FEED & CARD 

SENSE DSW 



RESET DSM 



SRC 

SRC 



tl 

L2 

L3 



PECX1 
I PEC3R 

2 t 

PFCX3 

PBIMX 



RESTORE REGS 



EXIT FROM ROUTINF 
SET CARD NUMB IN OUTPUT 

ADO IN ED 
CON,? AND STORE 

SET NUMB ENTRIFS PER CARD 



SRC 



2 2 

8 

8 

PECXE 

PEIHX 

2 3 

PSIHX 

2 1 

L PECXE, 
PEcro 

PES 
PPECO 
2 3 
PT*2 

1 KEY 
PECX9 



SAVE 

CONV AND STORE SRC 
"3VE DATA TO OUTPUT BUFF 

CNV AND STORE SRC 
BUMP IMAG EUF ADDR 
-1 DECREMENT ENTRIES/CD 

PUNCH A CARD JPC 

PRINT CARD SRC 



BRANCH 



DATE 
EC NO. 



04N0V66 
415233 



PART NO. 2242264 
PACE BA 



8C309450 

RC309460 

8C309W0 

8C309480 

8C309490 

8C309500 

8C309510 

8C309520 

8C309530 

8C309540 

8C309550 

8C309560 

8C309570 

BC309580 

8C309590 

8C30960C 

8C309610 

8C309620 

8C 309630 

8C 309640 

SC 309650 

6C309660 

8C309670 

8C309680 

SC 309690 

8C309700 

8C309710 

8C309720 

8C309730 

8C309740 

8C309750 

8C3P9760 

8C3O9770 

8C 309780 

8C309790 

8C309800 

8C3098IO 

8C309820 

8C309830 

SC 309840 

BC309650 

8C3098fO 

8C309870 

?C309880 

8C309890 

8C309900 

8C 309910 

8C309520 

8C30993G 

8C309940 

8C309950 

8C309960 

BC30997C 

8C309980 

6C30999Q 

8C31CD00 

8C310010 

8C310020 

8C310030 

8C310040 

8C310050 

8C310060 

8C3I0070 

8C3100B0 

8C31G090 

8C31010Q 

8C310110 

8C310120 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
8K EDIT CONTROL -_ 



PART NO. 
PAGE 



224226* 
94 



09 AS 


0000 


OC 









6C310130 


09AC 


3003 


WAIT3 WAIT 


3 


1**2 NOT READY «=RDJ 


8C310140 






• 






•PUSH START TO RETRY 


9C310150 


09AD 


7093 


MDX 

* 




PECV7 


BRANCH 


8C310160 
8C310170 


09AE 00 **80012C 


PECV8 BSt 


I 


KEY 




SC3101BO 


09B0 


OBBF 


OC 




PECX9 




8C310190 


09B1 


0000 


OC 







1**2 READ ERROR 


SC 3 102 00 


09B2 


0800 


XIO 




PECX6 


REStT OSW 


8C310210 


09B3 


300* 


WAIT* WAIT 


* 


PUSH START TO REREAD 


8C31022O 


09 B* 


708C 


MOX 

• 




PFCV7 


BRANCH 


8C310230 
8C3102*0 


09B6 


0000 


ess 


E 







8C310250 


09B6 


0002 


PECX1 BSS 




2 


SAVE A + 


SC 3i 0260 


09B6 


EOOO 


PFCX3 DC 




/EDOO 




8C310270 


09B9 e 


0000 


PECXE OC 







ENTRIES PER CARD 


8C310280 


093 A 


0000 


PECXC OC 







STACKER SELECT IOCC 


SC310290 


09BB 


1*80 


OC 




• 1*80 




8C31O30C 


098C 


01E0 


PECX* OC 




KEYIN»1 


REAO A CARD IOCC 


8C310310 


09B0 


1600 


OC 




/1 600 




8C310320 


09BE 


0000 


PECX5 OC 







SENSE 1**2 DSW 


8C310330 


09BF 


1700 


OC 




/1700 




6C3103*0 


09CQ 


OOOQ 


PECX6 DC 







SENSE AND PESET DSW 


8C3 10350 


09C1 


1703 


OC 




/1 70S 




8C310360 


09C2 


0000 


PECX7 OC 







FEED A CARD IOCC 


8C310370 


09C3 


1*02 


OC 




/1*Q2 




8C310380 


09C* 


01E0 


PECX8 DC 




KEYIN*i 


PUNCH A CARD IOCC 


8C310390 


09C5 


1500 


DC 

• 
• 




/15Q0 




8C310400 
8C310410 
8C310*20 






• 




BINARY TO 


HEX CARD IMAGE RT 


8C3io*3e 






* 








8C310**0 


09C6 


0000 


PBiHX DC 









8C310*50 


09C7 


1800 


RTE 

• 




16 


PUT BIN WORD TO BE 
* CONVERTED IN Q KEG 


8C310*60 
SC310*70 


09C8 


6911 


STX 


I 


PB1V1+1 


SAVE XI 


SC310*80 


09C9 


6A12 


STX 


2 


PBIY2+1 


SAVE X2 


8C310*90 


09CA 


610* 


LOX 


1 


* 


SET LOOP CONTROL 


8C310500 


09CB 


1810 


PBIY3 SRA 




16 


CONV CHAR TO HEX 


8C31O510 


09CC 


108* 


SLT 




* 




6C3IS52Q 


09CD 


D001 


STO 




•♦1 




8C31O530 


09CE 00 


66000000 


LOX 


L2 







8C31C540 


09D0 00 


C6000A5F 


LD 


L2 


KECOD+! 


GET HEX EOUIV 


8C3105S0 


09D2 00 


07000230 


STO 


L3 


KEYIN*8l 




SC 3 I 0560 


090* 


7301 


MDX 


3 


1 


BUMP TC NEXT OUTPUT 


8C3I0570 


09D5 


1000 


SLA 







NOP 


8C31058Q 


09D6 


71FF 


MDX 


I 


-1 




8C310590 


0907 


70F3 


MOX 




P8IY3 




8C31O6C0 


0908 


7301 


MOX 


3 


I 


PUT BLAW IN OUTPUT 


SC31061Q 


0909 00 


65000000 


PBtYl LDX 


LI 





RESTORE XI 


8C310620 


090B 00 


66000000 


P8IY2 LOX 


L2 





RESTORE X? 


8C310639 


09DD 00 


*C8009C6 


BSC 

• 


I 


PBIHX 




8C3106*0 

8C310650 






# 




punch a card mmnm 


8C31O660 


0°DF 


0000 


PED DC 







SE 


8C 3 10670 


O9E0 00 


C*000B3A 


LD 


L 


DTSW 


GET SWS 


8C310680 


09E2 00 


*C280B3S 


BSC 


L 


HB05»+Z 


BRANCH IF P T 


PC3J0690 


09E* 


1001 


SLA 




1 




6C3107OG 


09E5 00 


*C2B0B3B 


BSC 


L 


HBC5,*Z 


BRANCH IF BOTH 


SC310710 


09E7 00 


C*00022F 


PEDEN LO 


L 


KEYIN+80 




8C310720 


09E9 


E81F 


OR 




PEDX1 


* AT FrtD OF OUTPUT 


8C310T30 


09EA 00 


D*00022F 


STO 


L 


KEYIN+80 




gC 3 107*0 


09EC 


0801 


PfcSV* XIO 




t>ECX5 


SENSE OSW 


8C310750 


09E0 00 


*C0*09FB 


SSC 


L 


PEDY1.E 


XFER IF NOT ROY 


%C 3 10760 


09EF 


08CA 


XIO 




PECXC 


STACKER SELECT 


SC3I0770 


09F0 


0803 


XIO 




PECXB 


PUNCH CRD 


8C3iO?80 


09F1 


08CC 


PE0V2 XIO 




PECX5 


SENSE DSH 


8C3I0790 


09F2 


1801 


SRA 




i 


CK BUSY 


8C31O800 


EC NO. 


0*N0¥&& 
*15233 










PROG 10 08C3-S 
PAGE * 



09F3 00 *C0*09F1 


BSC 


L 


PE0Y2.E 


XFER IF BUSY 


8C31OB10 


09F5 180C 


SRA 




12 




8C310820 


09F6 00 *rO*OA02 


BSC 


L 


PEDY3.E 


XFER IT ERROR ON 


RC 3 10830 


09F8 08C7 


XIO 




PECX6 


RESET DSW 


8C3108*0 


09F9 00 *CS009DF 


PEDEX BSC 


I 


PEO 


EXIT SX 


BC310850 
8C3I0P60 


09FB 06C2 


PE0Y1 XIO 




PECX5 


SENSE OSW 


8C310870 


09FC 00 **80012C 


BSI 


I 


KEY 




8C310880 


09FE OBBF 


OC 




PECX9 




8C310890 


09FF 0000 


DC 









AC310900 


O&OO 3006 


WAIT6 WAIT 




6 


1**2 NOT RDY*PUNCHJ 


8C 3 1 0910 


0A01 70EA 


MDX 

* 




PEDY* 




HC310920 
BC310930 


0A02 0850 


PEDY3 XIO 




PECX6 


RESET DSW 


SC3109*0 


0A03 00 **80012C 


BSI 


I 


KEY 




8C310950 


0405 OBBF 


DC 




PECX9 




8C310960 


0A06 0000 


OC 









8C310970 


OA07 3007 


WAIT? WAI* 




? 


1**2 ERROR AFTER 


8C310980 




* 






* PUNCHING 


8C310990 


0A08 70E3 


MDX 

• 




PEDY* 




6C31I000 
8C311010 


0A09 0008 


PEDX1 DC 
* 

* 




/0008 


END OF PUNCH BIT 


8C311020 

8C3U030 
8C3U0*0 

<5C311050 
8C3U060 




* 




CONVERT CC9 TC ££OIC * Kt¥ 


8C3I1070 




* 








flC3U080 


oaoa o oooo 


PPECD OC 




/OOOO 




8C311090 


0&08 6928 


STX 


1 


PPEY5+1 


SAVE XKS * A * 


8C311100 


OACC 6A2C 


STX 


2 


PPEY6+1 




8C311110 


OAOD 6B2D 


STX 


3 


PPEY7+1 




8C311120 


OftOE 0833 


STD 

• 




PPEX3 




6C3U130 
8C311I*0 
8C3H150 


OfiOF 00 65000IDF 


LDX 


LI 


KEYlf. 


INITIALIZE ROUTINE 


8C311160 


0411 00 6D000IDE 


STX 


LI 


K1WC 




8C3H170 


0413 63B0 


LDX 


3 


-BO 




PC311180 


041* 6202 


LDX 


2 


J 




8C3U190 


0A15 61EF 


PPEY* LDX 


1 


-1? 


RESTORE KECOO POINTS 


8C311200 


0A16 00 C7Q00230 


PPEY2 LD 


L3 


KEYIN + 81 


FETCH KEYBD CHAR 


5C311210 


CiSS 00 F500066F 


EOR 


LI 


KECOD+1? 




SC311220 


GAIA 180* 


SRA 




* 




8C3U230 


0418 00 *C160A1F 


3SC 


L 


PPEY1 ,*- 


BR IF COMPARE 


8C3112*0 


0A10 7101 


MDX 


I 


1 




acs:i250 


OAiE 70F? 


MDX 

• 




PPEY2 


TRY NEXT CHAR 


SC311260 
8C311270 
SCSU2E0 


CA1F 00 C500OAA3 


PPEY1 LO 


LI 


KTILT+16 


PACK 2 EBD1C CHARS 


8C311290 


0A21 1QQS 


SLA 




8 




8C3U300 


OA22 1808 


RTE 




2* 




8C311310 


0423 72FF 


MDX 


2 


-1 


SKIP IF DONE TWO CHA RS 


8C311320 


042* 7019 


MDX 




PPEY3 


FETCH NEXT CHAR 


8C 31 1330 


042 5 6202 


LDX 


2 


2 




aC3113*0 


0426 180O 


RTE 




16 




8C311350 


042? CO D48001DE 


STO 


I 


K1WC 


PLACE IN OUTPUT AREA 


8C 31 1360 


0429 00 740201DE 


MCX 


I 


K I kC , 1 


NEXT STORAGE AREA 


eC3113?0 


042B F01S 


EOR 




PPEX2 




£C3I1380 


042C 00 4C200A3E 


SSC 


L 


PPEY3 S 2 


BR - NOT DBLE BLANK 


8.C3U390 


0A2E 61FF 


PPEY8 LOX 


I 


-1 


SET TERM 


6C31H00 


042F 00 60800IOE 


STX 


El 


KIWC 




8C311*10 


0431 00 **80012C 


BSI 


I 


KEY 


GO PRINT WHOLE E01T 


8C3S1*20 


0*33 01DF 


DC 




KEYIN 


MSG AREA 


8C31K30 


Oft3* 0000 


DC 









8C3!I**0 


0*35 C80C 


LDD 




PPEX3 


RESTORE XRS, & AND 


8C311*50 


0436 00 65000000 


PPE Y5 LDX 


LI 


/OOOO 




8C311*60 


0438 00 66000000 


PPEY6 LOX 


L2 


/OOOO 




8C3H*70 


043* 00 67000000 


PPEY7 LDX 


L3 


/OOOO 




8C311*S0 


1^0. mis* 
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0A3C 00 4C800A0A 



BSC I PPECO 



0A3E O 
OA3F 
(^40 

0A41 O 

0A42 



73D1 
7005 
70E0 

4040 
0002 



0A44 


0000 


0A44 


0000 


0A45 O 


OF02 


0A46 


0000 


0A46 




OA4 7 O 


0000 


0A4 8 


0000 


0A49 


oooo 


0A4A O 


0004 


0A4B 


4*00 


0A4C 


0000 


0A40 O 


0000 


0A4E 


0000 


0A4F 


or 03 


0A50 O 


0A4E 


0A51 


0902 


0A52 O 


0000 


0A53 


0C02 


0A54 


O10F 


0A55 O 


0A02 


0A56 


OOOi 


0A5 7 O 


8120 


0A5B 


8060 


0A59 O 


4420 


0A5A O 


FFFF 


0A5B 


8420 


0A5C 


80A0 


0A50 


4000 


0A55 O 


0000 


0A5F 


2000 


0460 


1000 


0661 O 


oeoo 


0A62 


0400 


0A63 O 


O200 


CA64 


O100 


0A6S 


ooeo 


0466 


0040 


0A67 O 


0020 


0A68 


001C 


0A69 


9000 


0A6A O 


8800 


0A6B 


8400 


0A6f 


8200 


0A6D 


eioo 


0A6E 


8080 


0A6F 


0002 


0A70 


0004 


0A71 


0008 


0A72 


■4100 


0A73 O 


2020 


0A74 


4220 


0475 


FFFF 


DATE 


04NOV66 


EC KO. 


416233 



PPEY3 MOX 

MDX 
MDX 

PPEX2 DC 
PPEX3 BSS 

• 

» 



BSS 

DC 

OC 

DC 

EQU 

DC 

DC 

OC 

K0004 DC 

* 



XSNS 

KMSG 

KECSD 

OUT 



KL 
KA3 



KRDY 

KP*T 

KPCO 

KREO 

KOVE 

KN 

KY 



DC 
OC 
DC 
DC 
DC 
OC 
OC 
DC 
DC 
OC 
OC 
DC 
DC 
DC 
OC 
DC 

KECPD OC 
OC 
DC 

• 

KECOD DC 
DC 
OC 
OC 
DC 
DC 
OC 
DC 
DC 
OC 
OC 

• 

KECAO DC 

DC 

KC OC 

OC 
PBIX2 OC 



KRFNT DC 
KE*SE DC 

KENDK OC 
KAL 



DC 
DC 
DC 
DC 



3 1 

PPEY4 
PPEY8 

•4040 
E 2 



/OOOO 

/0F02 

/OOOO 

KMSG 

/OOOO 

/OOOO 

/OOOO 

4 

/4400 





/OOOO 

/0FQ3 

KRDY 

/0902 

/OOOO 

/0C02 

KEYIN 

/0A02 

1 

/8120 

/8060 

/4420 

/FFFF 

/8420 

/80A0 

/&000 

/OOOO 
/2000 
/1000 
/0800 
/0400 
/0200 
/0100 
/0080 
/0040 
/0020 
/OOIO 

/9000 
/6800 
/8400 
/S200 
/8100 
/8080 

/0002 
/0004 
/0008 
/4100 
/2O20 
/4220 
/FFFF 



FX1T TO USER 
SKIP IF DONE 



DOUBLE SPACE EBOIC 
SAVED A AND 



KEYBOARD COOES 
SENSE-NO RESET 
MESS ADRS 
ROT-TLT OUTPUT TABLE 

CONSTANT 

ACC 

REG 

SENSE - RESET CMND 

PRINT COMMAND 

KBD PROCEED COMMAND 

READ KBD COMMAND 

CONSTANT 1 
UPPER CASE H 
Y 

* 



SPACE 



1 

2 

3 

4 

5 

6 

7 

S 

9 

A 
B 
C 





EP*SE FIELD 
ERASE CHAR 
END OF MESSAGE 
LOWER CASE N 

Y 
* 



8C311490 

8C311500 

SC31IS10 

8C3I1520 

8C3U530 

8C311540 

8C3115S0 

8C311560 

8C311570 

8C311?80 

8C311590 

8C31I60G 

8C311610 

8C311620 

8C311630 

8C311640 

8C311650 

SC 31 1660 

8C3H670 

8C3I1680 

»r31I690 

8C31I700 

8C3U710 

8C311720 

8C31173Q 

8C311740 

8C31I750 

8C311760 

8C311770 

8C311780 

8C3U790 

8C311800 

8C311810 

8C311820 

8C3U840 

8C3I1850 

8C311860 

8C311870 

8C311880 

8C311890 

8C3I1900 

8C311910 

8C311920 

8C311930 

8C311940 

8C3U950 

8C31I960 

BC311970 

8C311980 

8C3L1990 

8C312O0O 

8C 3 12010 

8C31202O 

8C312030 

8C312040 

8C312050 

8C312060 

6C312070 

8C3120S0 

8C312090 

8C312100 

SC312110 

8C312120 

6C312130 

8C3I2140 

8C312150 

8C31216G 

8C312170 
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PAGE 
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0A76 


8220 




DC 


/8220 


. 


6C312180 




w 


0A77 


FFFF 




DC 


/FFFF 




8C312190 






CA78 


FFFF 




DC 


/FFFF 




8C312200 






0A79 


2420 


KCMA 


DC 


/2420 


* 


8C317210 




! — 






**************»♦»#* ****«***•***»«***•*«*«**«* 


8C312220 










• 








SC312230 










• 






TYPEWRITER CODES 


8C312240 




*\ 






» 
• 






AND EBDIC CODES 

* 


8C312250 

"C312260 






0A7A 


16C7 


KT3LT 


DC 


/16C7 


S 


8C312270 






0A7B 


26CB 




DC 


/26C8 


H 


8C312280 






0A7C 


22C9 




DC 


/22C9 


I 


8C312290 






0A7D 


7ED1 




OC 


/7E01 


J 


8C312300 






0A7E 


5AD2 


• 


DC 


/5A02 


K 


9C3123I0 
8C312320 






CA7F 


5ED3 


KMI 


DC 


/5E03 


L 


8C312330 






0A60 


72D4 


» 


OC 


/72D4 


M 


8C312340 
8C312350 






0A81 


96E7 




DC 


/96E7 


% 


8C3I2360 






0A82 


5206 




DC 


/5206 





SC312370 






0A83 


56D7 




DC 


/5607 


P 


8C312380 






0A84 


66D8 




OC 


/6608 





SC312370 






OA85 


62D9 




DC 


/62D9 


R 


SC312400 
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0CB4 C03F 




LO 


ENT3 


SET NO TO CK 
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SRC 
SRC 



SRC 



SRC 
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C4012069 

C4012070 

C40 12071 

C4012072 

C4012073 

C4012074 

C401207S 

C4012076 

C4012077 

C40 12078 

C4012079 

C4012080 

C4012081 

C40 12082 

C40120S3 

C4312084 

C401208S 

C4012086 

C4012087 

C4012088 

C4012089 

C40 12090 

C40 12091 

C40 12092 

C4012093 

C40 12094 

C4012095 

C40 12096 

C4012097 

C4012098 

C40 12099 

C4012100 

C4012101 

C4012102 

C4012103 

C4G12104 

C401210S 

C4012106 

C4012107 

C4012108 

C4012109 

C4012110 

C4012UI 

C4012112 

C4012113 

C4012114 

C40T2U5 

C4012116 

C4012117 

C4012118 

C4012119 

C4012120 

C4012121 

C4012122 

C4012123 

C4012124 

C4012125 

C4012126 

C4012127 

C4012128 

C4012129 

C40 12130 

C4012131 

C4012132 

C4012133 

C4012134 

C4012135 

C4012136 
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0CB5 003C 




STO 


ENT1 






C4012137 


0CB6 00 66000000 


SM 


LOX 


L2 






C4012138 


OCBb 7202 


• 


MOX 


2 2 






C4012139 
C4012140 


0CB9 C200 


SM1A 


LD 


2 


GET A DDEF 


C4012141 


OCBA Ou F40004-»2 




EOR 


L SRTRY*1 


CK FOR AT 


PIO 


C4012142 


OCBC 01 4C100CE2 




BSC 


L SH3A,*- 


GO AD J IX 


1 


C4012143 


OCBE C100 




LO 


1 


GET DOEF 




C4012144 


OCBF 00 F400043D 




EOR 


L TERM 






C401214S 


0CC1 01 4C180CE4 




BSC 


L SM4A , ♦- 


EXIT IF ZERO 


C4012146 


0CC3 C100 




LO 


1 






C4012147 


0CC4 F200 




EOR 


2 


COMPARE 




C4012148 


0CC5 01 4C 160049 




BSC 


L SKER4,*- 


dR if error 


C4012149 


0CC7 7202 




MOX 


2 2 


INCR IX 




C4012150 


CCC8 01 74010CF2 




HOX 


L ENTl.l 


INCR TOTAL 


C40121S1 


OCCA 01 C4000CF2 




LO 


L ENT1 


CK FOR DONE 


CV012152 


OCCC 01 F4000CF5 




EOR 


L K0040 






C -.012153 


OCCE 01 4C180C01 




BSC 


L SM2A.+- 


BRANCH IF 


ALL 


C4012154 


CCOU 70E8 




MOX 


SM1A 


LOOP 




C4012155 


0CD1 7102 


SH2A 


HOX 


1 2 


INCR ! ■ 1 




C401215j 


CC02 C021 




LO 


ENT3 


GET TOTAL 




C4012157 


0CD3 6022 




A 


K0001 


ADD 1 




C4012158 


0C04 D01F 




STO 


ENT3 


SAVE 




C4012159 


0C05 01 74010CF3 




HDX 


l ent;,i 


INCR CK TOTAL 


C4012160 


0CD7 01 C4000CF3 




LO 


L ENT2 


GET CK TOTAL 


C -.012161 


0CD9 F010 




EOR 


K0039 


CK FOR OONE 


C4012162 


OCOA 01 4C180CE4 




BSC 


L SH4A,*- 


BRANCH IF 


CONE 


C4012163 


CCOC C100 




LO 


1 


GET ENTRY 




C4012164 


OCDO 00 F4000442 




EOR 


L SRTRY+l 


CK FOR AT 


PIO 


C4012165 


OCDF 01 4C180CEA 




asc 


L SH5A.+- 


BRANCH IF 


AT PIO 


C4012166 


0CE1 7001 


» 


HDX 


SMO 


LOOP 




C4012167 
C4012168 


0CE2 7203 


SH3A 


HDX 


2 3 


SET IX TO 


DDEF 


C4012169 


0CE3 7005 


* 


MOX 


SMI A 






C4O12170 
C4012171 


0CE4 1010 


SM4A 


SLA 


16 


CLEAR ALL 


NECESSARY 


C40121T2 


0CE5 OOOC 




STO 


ENT1 






C4012173 


0CE6 OOOC 




STO 


ENT2 






C4012174 


0CE7 OOOC 


* 


STO 


ENT3 






C4012175 
C4012176 


0CE8 00 4C00013A 


• 


BSC 


L S2 


EXIT 




C4012177 
C4012178 


OCEA 7103 


SM5A 


MOX 


1 3 


AOJ IX 1 




C4012179 


OCEB 70C7 




MOX 


SMO 


LOOP 




C4012180 


OCEC 0000 


TEHP 


DC 





CONSTANTS 




C4012181 


OCEO 0003 


K0003 


OC 


3 






C4012182 


oCEE 0442 


CNST 


OC 


SRTRYU 






C4012183 


OCEF 0002 


K0002 


DC 


2 






C4012184 


OCFO 0000 
0CF1 0583 


SN2 

ADRS 

* 


OC 

DC 




SRTRY+322 






C4012185 
C4012186 
C4012187 


0CF2 COOO 


ENT1 


OC 





CONSTANTS 




C4012188 


0CF3 0000 


ENT2 


OC 









C4012189 


0CF4 0000 


ENT3 


OC 









C4012190 


0CF5 0028 


KU040 


DC 


40 






C4012191 


0CF6 0001 


K0001 


OC 


1 






C4012192 


0CF7 0027 


K0039 


DC 


39 






C4012193 


0CF8 C062 


SK9 


LO 


W0CT1 


GET CO WO 


CT 


C4012194 


0CF9 B063 




CMP 


SOOOC 


COMPARE WITH 12 


C4012195 


OCFA o 7048 




HOX 


SKER2 


ERROR 




C4012196 


OCFB 708 A 




MOX 


SKB 


LOOP 




C4012197 


OCFC 709A 




MOX 


SKA 


GO SET CO 




C4012198 


OCFO 7101 


0EC1 


HOX 


1 1 


? NCR IX 1 




C4012199 


OCFE 01 4C000C6B 




BSC 


L SK5 


LOOP 




C4012200 


ODOO C100 


KYHEX 


LO 


1 


GET WO 1 




C4012201 


0001 00 C40001DF 




STO 


L KEYIN 


SAVE 




C4012202 


0003 C101 




LO 


1 1 


GET WO 2 




C4012203 


0004 00 040001EO 




STO 


L KEYIN*! 


SAVE 




C40 12204 
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0006 


00 


C400043D 




LD 


L 


TERM 


GET TERM 




C401220S 




0008 


00 


040001E1 




STO 


L 


KEYIN+2 


SET 




C4012206 




CDOA 


00 


44300137 




asi 


1 


PHKYB 


CONVERT TO HEX 


SRC 


C4012207 




oooc 





0002 




oc 




2 






C401220B 




000 D 





0437 




oc 




ZERO 






C40 12209 




000 E 





7103 




MDX 


1 


3 


INCR IX 1 




C4012210 




ODOF 


01 


4C000C75 




BSC 


L 


SKI6 






C40122U 




0011 





C100 


KVHXl 


LD 


1 





GET HO 




C4012212 




0012 


00 


0400010F 




STO 


L 


KEY1N 


SAVE 




C4012213 




0014 


00 


C4000430 




LO 


L 


TERM 


GET 1ERM 




C4012214 




0016 


00 


040001E0 




STO 


L 


K6YIN*l 


SET 




C401221S 




0016 


00 


44600137 




BSI 


I 


PHKYB 


CONVERT TO HEX 


SRC 


C4012216 




001 A 





0001 




OC 




1 






C4012217 




001 B 





0437 




OC 




ZERO 






C4012218 




001 C 





7102 




MDX 


1 


2 


INCR IX 1 




C4012219 




0010 


01 


4C0OOC75 




BSC 


L 


SKI6 






C4C12220 




00 IF 





C100 


KV0C2 


LD 


1 





GET WD 1 




C40 12221 




0020 


00 


0400010F 




STO 


L 


KEYIN 


SAVE 




C4012222 




0022 





C101 




LO 


1 


1 


GET WO 2 




C4012223 




0023 


00 


040001EO 




STO 


L 


KEYIN+i 


SAVE 




C4012224 


> 


0025 


00 


C4000430 




LO 


L 


TERM 


GET TERM 




C4012225 




002 7 


00 


D40001E1 




STO 


L 


KEYIN+2 


SET 




C4012226 




0029 


00 


44800136 




BSI 


I 


POKYB 


CONVERT TO DEC 


SRC 


C40 12227 




002 B 





0002 




DC 




2 






C4012228 




002C 





0437 




OC 




ZERO 






C4012229 




002 C 





7103 




MDX 


1 


3 


INCR IX 1 




C4012230 




002 E 


01 


4C000C75 




BSC 


L 


SKI6 






C40 12231 




0030 


00 


C400013E 


LSFF 


LO 


L 


BINRY 


GET WD 




C4012232 




0032 





B02B 




CMP 




SOOFF 


CMPR WITH FF 




C40 12233 




003 3 





7012 




MDX 




SKER3 


ERROR 




C40 12234 




0D34 





1000 




NOP 











C401223S 




0035 


01 


4C0OOC77 




BSC 


L 


SKIA 






C4012236 




0037 


00 


44800131 


CH 


BSI 


I 


SCH 


CK CH NO 


SRC 


C4012237 




0039 


01 


4C000C77 




BSC 


L 


SKIA 






C4012238 




003 B 


00 


44800130 


LSM 


BSI 


I 


SILSW 


CK ILSW BIT 


SRC 


C4012239 




0030 


01 


4C000C77 




BSC 


L 


SKIA 






C40 12240 




003F 


00 


4460012F 


IL 


BSI 


I 


SIL 


CK INT LVL 


SRC 


C40 12241 




0041 


01 


4C000C77 




BSC 


L 


SKIA 






C4012242 




004 3 


00 


44800132 


SKER2 


BSI 


I 


SER 


PRINT ERROR 


SRC 


C4012243 




0045 


1 


005F 




OC 




SKEOO 






C4012244 




0D46 


00 


44800132 


SKER3 


asi 


I 


SER 


PRINT ERROR 


SRC 


C4012245 




004 6 


1 


0075 




DC 




SKE02 






C4012246 




0049 


00 


44800132 


SKER4 


BSI 


1 


SER 


IDENTICAL ODEFS 


SRC 


C4012247 




004 B 


1 


008C 




OC 




SKE03 






C40 12248 




004 C 


1 


0000 


CNVRT 


OC 




KYHEX 


CONVERT TABLE 




C4012249 




0040 


1 


001F 




DC 




KV0C2 






C4012250 




004 E 


1 


0011 




OC 




KVHXl 






C4012251 




004 F 


1 


ODIF 




OC 




KYDC2 






C4012252 




0050 


1 


001 F 




DC 




KV0C2 






C4012259 




0051 


1 


0056 


CK 


OC 




AC 


CK TBL 




C4012254 




0052 


1 


0030 




DC 




LSFF 






C401225S 




0053 


1 


0037 




DC 




CH 






C40 12256 




0054 


1 


003B 




DC 




LSW 






C4012257 




0055 


1 


003F 




DC 




IL 






C4012258 




0056 


00 


C400013E 


AC 


LD 


L 


BINRY 


GET ENTRY 




C4012259 




0058 


01 


4CO0OC77 




BSC 


L 


SKIA 






C4012260 




005A 





0000 


HOC! 


OC 







TOTAL WO CT 




C4012261 




005 B 





0000 


W0CT1 


DC 







CARO WO CT 




C4012262 




0D5C 





0005 


S0005 


DC 




5 


CONSTANTS 




C4012263 




0050 





OOOC 


soooc 


DC 




/OOOC 






C40 12264 




005 E 





001F 


SOOFF 

• 


OC 




31 






C40 12265 
C40 12266 




0D5F 




0012 


SKECO 


EBC 




.E010 PID 


Ol-CD 02. 




C40 12267 




006 8 




0012 




EBC 




. IMPROPER NUMBER . 




C4012268 




0071 




0006 




EBC 




.OF WOS. 






C4012269 




0074 





FFFF 


• 


OC 




/FFF* 






C4012270 
C4012271 




0075 




0012 


SKE02 


EBC 




.EOOF P10 


01-CO 02. 




C40 12272 




CATE 




04N0V66 
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0D7E 


0012 


8087 


0007 


008B 


FFFF 


008C 


0012 


0D95 


0012 


009 E 


OOOF 


0DA6 


FFFF 


0DA7 


0012 


ODBO 


0012 


00B9 


0012 


00C2 


0012 


ODCB 


0012 


0004 


0012 


ODDO 


0012 


00E6 


0005 


ODE 9 


FFFF 



OOEA 0000 
OOEB 0154 
0F3F 00 4C000138 
0F42 0F3F 





EBC 


. AREA CODE WAS TO. 




EBC 


.0 LARGE. 





DC 


/FFFF 


SKE03 


EBC 


.E006 P10 01-CO 02. 




EBC 


. 2 CK MORE ENTR'E. 




EBC 


. S ARE IDENTICAL. 


f 


OC 


/FFFF 


SMI 


EBC 


.C014 PID 01-CO 02. 




EBC 


. ENTER DEVICE INF. 




EBC 


.0 IN THE TOLLCWIKG. 




EBC 


. FORMAT 1-40 DEVI. 




EBC 


.CES-SPACE BETWEEN . 




EBC 


.ENTRIES. IL ILSW C. 




EBC 


.H AC MOO. *00 00 H . 




EBC 


.00 HH. 


£ 


DC 


/FFFF 


SW81 


OC 


ENTRY STO 




BSS 


340 


EN01 


BSC L ENDO 




END 


ENDl 



C4012273 
C4012274 
C4012275 
C '.012276 
C4012277 
C401227S 
C4012279 
C4012280 
C4012281 
C4012282 
C4012283 
C4012284 
C4012285 
C4012286 
C40122B7 
C4012288 
C4012289 
C4012290 
C40 12291 
C40 12292 
C4012293 
C4012294 
C401229 C4012304 
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SYMBOL VALUE 


REFERENCES 


AC 


0056 


0051 


AORS 


0CF1 


0C35 


BGNR 


0*38 


0C17 


EINRY 


013E 


0C17, 0030.0056 


BUILD 


0C82 


0C6E 


CH 


0037 


0053 


CK 


0051 


0C75 


CKYN 


0120 


0C17 


CNST 


OCEE 


0C26 


CNVRT 


0D4C 


0C73 


CEC1 


OCFO 


0C71 


ENOO 


0138 


0C17.OF3F 


END! 


0F3F 


0F41 


ENTl 


0CF2 


0CB5,OCC8,0CCA,OCE5 


ENT2 


0CF3 


0C05, 0C07.0CE6 


ENT3 


0CF4 


OC54 I OC02.0C04.0CE7 


ERR 


0439 


0C17 


IL 


003F 


0055 


KEY 


012C 


0C17.0C44 


KEYIN 


010F 


OC17,OC48,OC40,OC66,0001 
0D23.0D27 


KYDC2 


001F 


0040, 004F, 0050 


KYHEX 


0000 


004C 


KYHXl 


0011 


004E 


K0001 


0CF6 


0C03 


K0002 


OCEF 


0C3B 


K0003 


OCEO 


0C24 


K0039 


0CF7 


0C09 


K0040 


0CF5 


OCCC 


LGRCP 


043F 


0C17 


LSFf 


0030 


0052 


LSW 


003 B 


0054 


LWC 


043E 


0C17 


HTRH 


0438 


0C17 


PDKYB 


0136 


OC 17, 0029 


PHKYB 


0137 


0C17, 0DOA.OD18 


SCH 


0131 


0C17.0037 


SECSU 


0133 


OC17.OCA0 


SER 


0132 


0CI7. UC7E, 0043, 0046,0049 


SIL 


012F 


0C17.0D3F 


SILSh 


0130 


0C17, 00 3B 


SKA 


0C97 


OCFC 


SKA1 


0C4F 


0C65 


SKA 2 


0C62 


OCS1,OC54,OC57,OCSA 


SKA3 


0C64 


0C5C 


SKA7 


0C66 


0C60 


SKB 


0C86 


OCFB 


SKO 


CCA3 


0C97 


SKE 


OCA 5 


0C98 


SKER1 


0C7E 


0C4B 


SKER2 


0043 


0C62.0CFA 


SKER3 


0046 


0033 


SKER4 


0049 


0CC5 


SKEOO 


005F 


GC80, 0045 


SKE02 


0C75 


0048 


SKE 03 


OOdC 


004B 


SKF 


CCA 7 


0C99 


SKI A 


GC77 


0035,0039,0030.0041*0058 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKI I 


0C17 


0C9A 


SKI 2 


0C16 


UC30,0C9C,0CAC 


SKI 3 


0C19 


0C43 


SKI4 


0C1A 




SKI 6 


CC75 


000F.0D10.002E 


CATE 
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SK5 


0C6B 


OC7A.0CFE 


SK6 


0C6A 


0C70 


SK7 


0C84 


OCBO 


SK8 


0CA2 




SK9 


0CF8 


0C96 


SM 


0C36 


0CB3 


SMO 


0CB3 


0C28,0CE1,0CE8 


SMI 


00A7 


0C46 


SM1A 


0CB9 


0C00.0CE3 


SM2A 


0C01 


occe 


SM3A 


0CE2 


OCBC 


SM4A 


0CE4 


OCCl.OCOA 


SM5A 


OCEA 


OCOF 


SNO 


0C2C 


0C2A 


SN1 


0C2E 


0C39 


SN2 


OCFO 


0C33.0C37 


SRTRY 


0441 


0CBA,0C00,0CEE,0CF1 


SSUER 


012E 


0C17.OC1E 


ST8F 


0<f40 


OC17.0C1A.OC22 


swei 


ODEA 


0C68,CC82,0C84,0CA2 


SOOFF 


005E 


0032 


SOOOC 


0050 


0CF9 


S0005 


0D5C 




S0560 


0C81 


0C4A 


S2 


013A 


0C17.0CE8 


TEMP 


OCEC 


0C1C0C20 


TERM 


0430 


0Cl7,0C2E,OC5E,OC6C 


TRFX 


C43C 


0C17 


WCC 


043A 


0C17 


►/OCT 


005A 


0C3F,OL7B,0C94,0CAE 


W0CT1 


0D5B 


OC4l,OC8A,0C90,0C9E, 


ZERO 


0437 


OC 17,0000, 001 C.002C 



OATE 
EC NO. 
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0000 

G12C 

0120 

012E 

012F 

0130 

0l31 

0132 

0133 

0134 

0135 

0136 

013? 

0138 

013A 

013E 

OIDF 

0437 

0438 

0439 

043A 

0438 

04 3C 

0430 

C43E 

043F 

0440 

0441 

OC17 

0C18 

0C19 

0C1A 



00J1 
FFFF 

0000 
0000 



0C1B 00 4C000138 



0C1E 



0C1B 



DATE 
EC NO. 



04NOV66 
415233 





ORG 


♦♦3095 


KEY 


EQU 


300 


CKYN 


EOU 


KEY+1 


SSUER 


EOU 


CKYN* I 


S1L 


EOU 


SSUER+l 


SILSw 


EOU 


SIL*1 


SCH 


EQU 


SIISW+1 


SER 


EOU 


SCH*1 


SECSU 


EQU 


SER*1 


SKIN1 


EOU 


SECSU*! 


SKI NO 


EQU 


SKIN1*1 


P0KY8 


EQU 


SKINO+l 


PHKYB 


EQU 


POKYBU 


ENOO 


EQU 


PHKY8*l 


S2 


EQU 


ENDO+2 


BINRY 


ECU 


S2*4 


KtVIN 


ECU 


BINRY*161 


2ER0 


EOU 


KE YIN +600 


BGNR 


EQU 


2ER0+1 


CRR 


EOU 


BGNR* I 


WCC 


EOU 


ERR*1 


MTRM 


EQU 


HCC*1 


TkFX 


EQU 


MTRMtl 


TERM 


EdU 


TRFX*l 


LWC 


EQU 


TERN*1 


LGROP 


EOU 


LWC*1 


ST8F 


EOU 


LGR0P*1 


SRTRY 


ECU 


STBF+1 


SKI1 


DC 


/0001 


SKI 2 


DC 


/FFFF 


SKI 3 


DC 


/OOOO 


SKI 4 


DC 


/OUOO 


EN01 


8SC L 


ENOO 




ENO 


EN01 



C4013001 

C40 13002 

C4013003 

C4013G04 

C4013005 

C4013006 

C4013007 

C4013008 

C40 13009 

C4013010 

C4013011 

C4013012 

C4013013 

C4013014 

C4013015 

C 4013016 

C401301T 

C4013018 

C4013019 

C40 13020 

C4013021 

C40 13022 

C4013023 

C4013024 

C4013025 

C4013026 

C4013027 

C4013028 

C4013029 

C4013030 

C4013031 

C4013032 

C40 13033 

C401303 C4013043 
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PART NO, 2242266 
PAGE 8A 



SYMBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENOO 


0138 


OCIT.OCIB 


EN01 


0C1B 


0C10 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEY IN 


OlOF 


0C17 


LGROP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


043B 


0C17 


POKY a 


0136 


0C17 


PHKVB 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILSW 


0130 


0C17 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKI1 


0C17 




SKI 2 


0C18 




SKI3 


0C19 




SKI% 


0C1A 




SRTRY 


0441 




SSUER 


012E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


WCC 


043A 


0C17 


ZERO 


0437 


0C17 



DATE 
EC NO. 



04N0V66 
415233 



PROG 10 08C4-0 
PAGE SA 



3 

3 

3 
3 

3 

3 
3 
3 

3 
3 
3 
3 

' s 

3 

3 

3 

3 

■) 

) 

1 
3 
3 
3 
3 
3 
3 

3 , 

i 
3 ! 

1 



<<<<<<<<<<<(<<<< 



v 



*-.. 






IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CPIU-OIAG HON SKELETONS SKELETON 10-08C4-04-0 



PART NO. 22*2266 
PAGE « 



0000 






ORG 


•♦3095 






C4040001 


012C 




KEY 


• EOU 


300 






C4040002 


0120 




CKYN 


ECU 


KEY*! 






C4040003 


012E 




SSUEfi 


EOU 


CKYN* I 






C4040004 


012F 




SIL 


Eyu 


SSUER*! 






C4040005 


0130 




SILSk 


EOU 


SIL* I 






C4040006 


0131 




SCH 


EOU 


S1LSW+1 






C4040007 


0132 




SEA 


EOU 


SCH*1 






C4040008 


0133 




SEC SI 


EQU 


SER*l 






C4040009 


0134 




SK1N1 


ECU 


SECSU+l 






C4040010 


0135 




SKI NO 


EQU 


SKlNl+1 






C4040011 


0136 




POKYB 


eju 


SKINO*! 






C4040012 


0137 




PHKYB 


EOU 


PDKYB+1 






C4040013 


0138 




END3 


tcu 


PHKVB*l 






C4040014 


013A 




S2 


EOU 


EN00+2 






C4040015 


013E 




B1NRY 


EOU 


S2*4 






C4040016 


01 OF 




KEY1N 


EOU 


BINRY*161 






C4040017 


0437 




ZERO 


EQU 


KEYIN+600 






C4040018 


0438 




BGNR 


EOU 


ZERO* I 






C4040019 


0439 




ERR 


EOU 


BGNR+l 






C4040020 


043A 




WCC 


EQU 


ERR + 1 






C4040021 


043 6 




MTRM 


EQU 


WCC*l 






C4040022 


043C 




TRFX 


EQU 


HTRM*1 






C4040023 


0430 




TERM 


EQU 


TRFX*1 






C4040024 


043 E 




LwC 


EOU 


TERM* I 






C4040025 


042F 




LGROP 


EOU 


LMC*1 






C4040026 


0440 




STBF 


EQU 


LGR0P*1 






C4040027 


0441 




SRiKV 


EQU 


STBF*1 






C4040028 


0C17 


0004 


SKI1 


OC 


/0004 


PIO 




C4040029 


0C18 


0000 


SK12 


DC 


/OOOO 


CD NC 




C4040030 


0C19 


0001 


SKI 3 


OC 


/0001 


NO ENTRIES 




C4040031 


0C1A 00 


4480012E 


SKI-. 


8S1 


I SSUER 


SET ERROR kETURN 


SRC 


C4040032 


0C1C 00 


4480012C 




BSI 


I KEY 


ENTER 1L 


SRC 


C4040033 


0C1E 1 


0C3E 




OC 


SMI 






C4040034 


0C1F 


8120 




OC 


/8120 






C4040035 


OC20 00 


4480012F 




BSI 


I SIL 


CK INI LVL 


SRC 


C4040036 


0C22 


0018 


* 


STO 


SWB1 


SAVE 




C4040037 
C4040038 


0C2 3 00 


4480012E 




BSI 


I SSUER 


SET ERROR RETURN 


SRC 


C4040039 


0C25 00 


4480012C 




BSI 


I KEY 


ENTER ILSW 


SRC 


C4040040 


0C27 1 


0C60 




DC 


SM2 






C4040041 


0C28 


8120 




OC 


/8120 






C4040042 


0C29 00 


44800130 




BSI 


I SILSW 


CK ILSH BIT 


SRC 


C4040043 


0C2B 


0010 


* 


STU 


SWB2 






C4040044 
C4040045 


0C2C 


COOE 




LD 


SWB1 


BUILO ODEF 




C4040046 


0C20 


FOOE 




EUR 


SW82 






C4040047 


0C2E 


FOOE 




EUR 


SMB3 






C4 040048 


0C2F 


oooe 


• 


STO 


SWB1 


SAVE 




C4040049 
C4040050 


0C30 01 


65800C17 




LDX 


11 SKI1 


SET IXING 




C4040051 


0C32 01 


66800C18 




LOX 


12 SKI2 






C4040052 


0C34 01 


67800C19 




LOX 


13 SKI3 






C40400S3 


0C36 00 


44800133 




BSI 


I SECSU 


SET CARD 


SRC 


C4040054 


0C38 1 


0C3B 




DC 


SbBl 






C4040055 


0C39 00 


4C00013A 




BSC 


L S2 


EXIT 




C4040056 


0C3B 


0000 


SWB1 


DC 





ENTRY STORAGE 




C4040057 


0C3C 


0000 


Sk.02 


DC 









C4040058 


0C3C 


OOOF 


Sw33 

• 


OC 


/OOOF 


CONSTANT 




C4040059 
C4040060 


0C3E 


0012 


SMI 


EBC 


.C001 PID 


04-CO 00. 




C4 040061 


CC47 


0012 




EBC 


. ENTER 2 


DIGIT OE. 




C4040062 


0C50 


0012 




EBC 


.CI HAL 1NTRPT LVL F. 




C4040063 


0C59 


OOOC 




EBC 


.OR 1054-1055. 




C4040064 


0C5F 


FFFF 


• 


OC 


/FFFF 






C4040065 
C4040066 


0C60 


0011 


SK2 


EBC 


.C002 PID 


34-CD 00. 




C4040067 


0C6 9 


0012 




tdC 


. ENTER 2 


DIGIT DE. 




C4040068 


CATE 


04N0V66 
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0C72 0012 




EBC 




.CIMAL ILSH BIT FOR. 




C4040069 


0C7B OOOA 




EBC 




. 1054-1055. 




C4040070 


0C8O FFFF 




DC 




/FFFF 




C4040071 


0C81 00 4C000138 


END1 


BSC 


L 


ENDO 




C4040072 


0C84 0C81 




ENO 




EN01 


C404007 


C4 0400 8 2 
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SYMBOL 


VALUE 


REFERENCES 


BGNK 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


O120 


0C17 


ENOO 


0136 


0C17.OC81 


EN01 


ocei 


0C83 


ERR 


0439 


0C17 


KEY 


012C 


OC17,OC1C,OC25 


KEYIN 


010F 


0C17 


LGROP 


043F 


0C17 


LHC 


043E 


0C17 


MTRM 


043B 


0C17 


POKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


OC1T.0C36 


SER 


0132 


0C17 


SIL 


012F 


0C17.0C20 


SILSk 


0130 


0C17.0C29 


SKI NO 


0135 


0C17 


SKIM 


0134 


0C17 


SKII 


0C17 


CC30 


SKI2 


0C18 


. 0C32 


SKI 3 


0C19 


0C34 


SKI4 


0C1A 




SMI 


0C3E 


0C1E 


SM2 


0C60 


0C27 


SRTRY 


0441 




SSUER 


012E 


0C17.0C1A.0C23 


STBF 


0-«40 


0C17 


SWB1 


0C3B 


0C22i0C2C t 0C2F t 0C38 


S*B2 


0C3C 


0C2B.OC2O 


SMB3 


0C30 


0C2E 


S2 


013A 


0C17.0C39 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


WCC 


04 3A 


OCX 7 


ZERO 


0437 


0C17 
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0000 






ORG 


•♦3095 


012C 




KEY 


ECU 


300 


0120 




CKYN 


EOU 


KEV*1 


012E 




SSUER 


EOU 


CKYN* I 


012F 




SIL 


EQU 


SSUER*! 


0130 




SILSM 


EQU 


SIL+1 


0131 




SCH 


E9U 


S1LSM*1 


0132 




SER 


EQU 


SCH* I 


0133 




SECSU 


EQU 


SER*1 


0134 




SKIN1 


EQU 


SECSU*! 


0135 




SKI NO 


EQU 


SKIN1*! 


0136 




POKYB 


EQU 


SKIN0*1 


0137 




PHKYB 


EJU 


POKYB*! 


0138 




ENDO 


EwU 


PHKYB*1 


013A 




S2 


EQU 


ENOO* 2 


013E 




BINRY 


EQU 


S2*4 


010F 




KEYIN 


EQU 


8INRYU61 


0437 




ZERO 


EOU 


KEYIN*600 


0438 




BGNR 


EQU 


ZER0*1 


0439 




ERR 


EOU 


BGNR*1 


043A 




WCC 


EOU 


ERft+1 


043B 




MTRM 


EQU 


WCC*1 


043C 




TRFX 


EOU 


MTRH+1 


0430 




TERM 


EQU 


TRF~.*1 


043E 




LWC 


EOU 


TERM+1 


043F 




LGROP 


EQU 


LWC*1 


0440 




STBF 


EQU 


LGR0P*1 


0441 




SRTRY 


EQU 


STBF*1 


0C17 


0004 


SKII 


OC 


/0004 


0C18 


FFFF 


SKI 2 


OC 


/FFFF 


0C19 


0000 


SKI 3 


OC 





0C1A 


0000 


SKI4 


DC 





ocia oo 


4C000138 


END1 


BSC L ENDO 


0C1E 


0C1B 




END 


EN01 



C4041001 
C4041002 
C4041003 
C404 1004 
C4041005 
C4041006 
C4U41007 
C -.041006 
C4041009 
C4041010 
C4U41011 
C4041012 
C4041013 
C4041014 
C404101S 
C4041016 
C4041017 
C4041018 
C4041019 
C4041020 
C4041021 
C4041022 
C4041023 
C4041024 
C404102S 
C4041026 
C4041027 
C4041028 
C4041029 
C4041030 
C4041C31 
C4041032 
C4041033 
C4041C3 C4041043 
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PART NO. 
PAGE 



2243266 
11 



o 





SYMBOL 


VALUE 


R'FERENCES 


BGNR 


0438 


0C17 


BINkY 


013E 


0C17 


CKYN 


0120 


0C17 


ENOU 


0136 


0C17.0C1B 


EN01 


0C1B 


0C10 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEY1N 


010F 


GC17 


LGROP 


043F 


0C17 


LWC 


0436 


0C17 


fTRM 


043B 


0C17 


POKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


Ocl7 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILSt. 


0130 


0C17 


SKINO 


013S 


0C17 


SKIM 


0134 


0C17 


SKI I 


0C17 




SK12 


0C18 




SKI 3 


0C19 




SKI 4 


0C1A 




SRTRY 


0441 




SSUER 


012E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


bCC 


043A 


0C17 


ZERO 


0437 


0C17 
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0000 






ORG 




*»3095 






012C 




KEY 


EOU 


* 


300 






0120 




CKYN 


EQU 




KEY* I 






012E 




SS"ER EOU 




CKYN* I 






012F 




SIL 


EOU 




SSUER*1 






0130 




SILSW EOU 




SIL*l 






0131 




SCH 


tou 




SIcSW+1 






0132 




SER 


EOU 




SCH* I 






0133 




SECSU EOU 




SER*1 






0134 




SKINl EOU 




SECSU*! 






0135 




SKINO EQU 




SKIN1*1 






0136 




POKYB EOU 




SKINO+1 






0137 




PHKYB EQU 




POKYB*! 






0138 




ENOO 


EQU 




PHKYB*! 






013A 




S2 


EQU 




£N00*2 






013E 




3INRY EOU 




S2*4 






01DF 




KEYIN EOU 




BINRY*161 






0437 




ZERO 


EQU 




KEYIN«600 






0438 




BGNR 


EQU 




ZERO* I 






0439 




ERR 


EQU 




BGNR*! 






043A 




WCC 


ECU 




ERR*1 






043 B 




MTRM 


EQU 




WCC*1 






043C 




TRFX 


EQU 




MTRM*1 






0430 




TERM 


EQU 




TRFX*1 






0436 




LWC 


EQU 




TEAM*1 






043 F 




LGROF 


EOU 




LWC*1 






0440 




STBF 


EQU 




LGR0P*1 






0441 




SRTRY 


EQU 




STBF*! 






0C17 


0005 


SKI1 


OC 




/OOOS 


PIO 




0C18 


ObOO 


SKI 2 


DC 







CO NO 




0C19 


0G01 


SKI3 


OC 




/0001 


NO ENTRIES 




0C1A 00 


4480012E 


SK14 


BSI 


I 


SSUER 


SET ERKCR RETURN 


SRC 


0C1C 00 
0C1E 1 


4 480012C 
0C43 




BSI 

DC 


I 


KEY 
SMI 


ENTER IL 1ST lo27 


SRC 


OOF 


8120 




OC 




/8120 






0C20 00 
0C22 


4480012F 
0010 




BSI 
STO 


1 


SIL 

5WB1 


CK INT LVL 


SRC 


0C23 00 


4480012E 




BSI 


I 


SSUER 


SET ERkOR RETURN 


SRC 


0C25 00 
0C27 1 


448Uol2C 
0C63 




BSI 

DC 


I 


KEY 
SM2 


ILSW BIT 1ST 1627 


SRC 


0C28 


8120 




OC 




/8120 






0C29 00 


44800130 




BSI 


I 


SILSW 


CK ILStt BIT 


SRC 


0C2B 


0015 




STO 




SWB2 


SAVE 




0C2C 01 


C40U0C40 




LO 


L 


ShBl 


BUILD OUEF 




0C2E 01 


F4000C41 




EOR 


L 


SUB2 






0C30 01 


F4000C3F 




EOR 


L 


KOOOF 






OC32 01 


04000C40 


£ 


STO 


L 


SWS1 


SAVE 




0C34 01 


65800C17 


SR3 


LDX 


11 


SKI1 


SET IXING 




0C36 01 


6680UC18 




LOX 


12 


SKI2 






0C38 01 


67800C19 




I OX 


13 


SKI3 






0C3A 00 


44S00133 




BSI 


I 


SECSU 


SET CARD 


SRC 


0C3C 1 


0C40 




OC 




SWB1 






0C30 00 


4C00013A 


* 
KOOOF 


BSC 


L 


S2 






0C3F 


OOOF 


OC 




/OOOF 






0C40 


0000 


SWB1 


OC 







ENTRY STORAGE 




0C41 


0000 


SM82 


OC 











0C42 


0000 


SMS 3 

* 

SMI 


DC 











0C43 


0012 


EBC 




.C001 P10 


05-CD 00. 




0C4C 


0012 




EEC 




. ENTER 2 


DIGIT CE. 




0C55 


0012 




EBC 




.CIMAL INTRPT LVL F. 




0C5E 


0007 




EBC 




.OR 1627. 






0C62 


FFFF 


* 
SM2 


OC 




/FFFF 






0C63 


0012 


EBC 




.C002 PID 


05-CD 00. 




DATE 


04N0VO6 














£C NO. 


•»1S233 















PART NO. 2242266 
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3 • 

1 

1 



t ! 3 



C4050001 


1 


C4050002 


C4050003 




C4050004 


-i 


C4050005 


C4050006 




C405O007 


3 


C4050008 


C4050009 




C4050010 


1 


C4050011 


C4050012 




C4050013 


} 


C4050014 


C4050015 




C4050016 


3 


C4050017 


C4050018 




C4050019 


1 


C4050020 


C4050021 




C4050022 


■* 


C4050023 


I 


C4050024 




C4050025 


1 


C4050026 


C4050027 




C4050023 


1 


C4050029 


C4O50030 




C4050031 


~>* 


C4050032 


C4050033 
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1 


C40500J5 


C4050036 




C4050037 


1 


C4G50038 


C4050039 




C4050040 


1 


C4050041 


C4050042 




C4050043 


) 


C4O5U044 


C4050045 




C405O046 


1 


C4050047 


C4050048 




C4050049 


1 


C405O050 


C4050051 




C4050052 


1 


C4O50053 


C4050054 




C4050055 


1 


C4050056 


C405005 7 




C4050058 


3 


C4050059 


C4050060 




C4O50061 


1 


C4050062 


C40 50063 




C4050064 


3 


C4050065 


C4050066 




C4050067 


t 


C40S0068 


PROG ID 08C4-0 


1 


PAGE HA 






I 




1 




1 



3 O O C O G ( P (' O C C C. C C C 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CPIO-OIAG MUN iKtLETiJNS SKELfc TON IO-06C4-0S-0 



PART NO. 2242266 
P*6E 12 



0C6C 0012 




EBC 


. ENTER 2 DIGIT OE. 


C4050069 
C4050070 
C4050071 
C4050072 


0C75 0012 
0C7E 0005 
0C81 FFFF 


• 
ENOl 


EBC 
EBC 
OC 


.CIMAL ILSh BIT FOR. 

. 162 7. 

/FFFF 


0C82 00 4C000138 
0C84 0CS2 


BSC L ENOO 
END ENOl 


C40S0073 

C4050074 

C405007 C4050084 
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CPIO-OIAG MON SKELETONS SKELETON 10-08C4-05-0 

CROSS REFERENCE LISTING 



PART NO. 2242266 
PACE 12* 



SYMBOL 


VALUE 


REFERENCES 


BGNR 


0436 


0C17 


6INRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENDO 


0138 


0C17.0C82 


ENOl 


0C82 


0C34 


ERR 


0439 


0C17 


KEY 


012C 


0C17.0C1C.0C2S 


KEYIN 


010F 


0C17 


KOOOF 


0C3F 


0C30 


LGROP 


043F 


0C17 


LUC 


043E 


0C17 


MTRM 


043B 


0C17 


POKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17.0C3A 


SER 


0132 


0C17 


SIL 


012F 


0C17.0C20 


S1LSU 


0130 


OC17.0C29 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKU 


0C17 


0C34 


SKI 2 


0C18 


0C36 


SKI 3 


0C19 


0C38 


SKI4 


0C1A 




SK3 


0C34 




SMI 


0C43 


0C1E 


SM2 


0C63 


0C27 


SRTRV 


0441 




SSUER 


012E 


0C17.0C1A.0C23 


STBF 


0440 


0C17 


SWB1 


0C40 


0C22.0C2C.OC32.0C3C 


SWB2 


0C41 


OC2B.0C2E 


SMB3 


0C42 




S2 


013A 


0C17.0C3D 


TERM 


O430 


0C17 


TRFX 


043C 


0C17 


UCC 


043A 


0C17 


ZERO 


0437 


0C17 



DATE 
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0000 






ORG 


•♦3095 


012C 




KEY 


EOU 


300 


0120 




CKYN 


EQU 


KEY+1 


012E 




SSUER 


EOU 


CKYN* I 


012F 




S1L 


EQU 


SSUER+1 


0130 




S1LSW 


EQU 


SIL*1 


0131 




SCH 


EQU 


silsw*i 


0132 




SER 


EOU 


SCH*1 


0133 




SECSU 


EQU 


SER+1 


0134 




SKIN1 


EQU 


SECSU+l 


013S 




SKI NO 


EQU 


SKIN1+1 


0136 




PDKYB 


EQU 


SKINO+1 


0137 




PHKYB 


ECU 


PDKYB*! 


0138 




ENOO 


EQU 


PHKY6+1 


013A 




%Z 


EQU 


END0*2 


one 




B1NRY 


EQU 


S2*4 


010F 




KEYIN 


EQU 


BINRY+161 


0437 




ZERO 


EQU 


KEYIN»600 


0438 




BGNR 


EOU 


ZERO* I 


04 39 




ERR 


EQU 


BGNR*l 


043A 




WCC 


EOU 


ERR*1 


0438 




MTRH 


EOU 


WCC*l 


043C 




TRFX 


EOU 


HTRM*1 


0430 




TERM 


EQU 


TRFX*1 


043E 




LWC 


EQU 


TERMtl 


043F 




LGRO' 


EQU 


LWC+l 


0440 




STBF 


EQU 


LGROP+l 


0441 




SRTRY 


EQU 


STBF*1 


0C17 


0005 


SKI1 


OC 


/0005 


0C18 


FFFF 


SKI 2 


OC 


/FFFF 


0C19 


0000 


SKI 3 


OC 





OCIA 


0000 


SKI 4 


OC 





0C18 00 


4C000138 


END I 


BSC L ENOO 


0C1E 


0C1B 




END 


EN01 



DATE 

EC SO. 



04N0V66 
415233 



C4051001 
C4051002 
C40S1003 
C4051004 
C4051005 
C4051006 
C4051007 
C4051000 
C4051009 
C4051010 
C40510U 
C4051012 
C4051013 
C4051014 
C4051015 
C4051016 
C4O51017 
C4051018 
C4051019 
C4051020 
C4051021 
C4051022 
C4C51023 
C4051024 
C405102S 
C40 51026 
C4051027 
C4051026 
C4051029 
C4051030 
C4051031 
C4051032 
C4051033 
C405103 C4051043 
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CROSS REFERENCE LISTING 



PART NO. 2242266 
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SYMBOL 


VALUE 


REFERENCES 


EGNR 


0436 


0C17 


BINRV 


013E 


0C17 


CK*N 


C12D 


0C17 


ENOO 


0138 


OC17.0C1B 


END I 


0C1B 


0C1D 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEYIN 


010F 


0C17 


LGRCP 


043F 


0C17 


LWC 


043E 


0C17 


PTRM 


043B 


0C17 


POKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILSW 


0130 


0C17 


SKINO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKU 


0C17 




SKI 2 


0C18 




SKI3 


0C19 




SKI4 


OCIA 




SRTRY 


0441 




SSUER 


012E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


vice 


043A 


0C17 


ZERO 


0437 


0C17 



OATE 
EC NO. 
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0000 






ORG 




•♦3095 






C406C001 


012C 




KEY 


ecu 




300 






C4060002 


0120 




CKYN 


EOU 




KEV+1 






C4060003 


012E 




SSUtft 


EQU 




CKYN* I 






C4060004 


012F 




SIL 


EOU 




SSUER +1 






C406000S 


0130 




SIuSW 


EQU 




SIL+1 






C4060006 


0131 




SCH 


EOU 




SILSWU 






C4060007 


0132 




SER 


EQU 




SCH»1 






C4060008 


0133 




SECSU 


EQU 




SER*1 






C4060009 


0134 




SKIM 


EQU 




SECSU*1 






C4060010 


0135 




SKI NO 


EQU 




SK1N1+1 






C4060011 


0136 




POKYB 


EQU 




SKIN0+1 






C4 0600 12 


0137 




PHKYB 


EQU 




POKYB^l 






C4060013 


0138 




ENOO 


EQU 




PHKYBU 






C4060014 


013A 




S2 


EQU 




END0+2 






C4060015 


01 3E 




BINRY 


EQU 




S2*4 






C4060016 


01CF 




KEY IN 


EOU 




BINKY*161 






C4060017 


0437 




ZERO 


EQU 




KEYIN«600 






C4060018 


0438 




8GNR 


EQU 




ZERO+1 






C4060019 


0439 




ERR 


EOU 




8GNR»1 






C4060020 


043A 




MCC 


EQU 




ERR*i 






C4060021 


043 6 




HTRM 


EQU 




HCC»1 






C4060022 


043C 




TRFX 


EQU 




HTRM*1 






C4060023 


0430 




TERM 


EwU 




TRFX^l 






C4060024 


043E 




LrfC 


EQU 




TfcRM+1 






C4060025 


043F 




LGROP 


EQU 




LWC*l 






C4060026 


0440 




STBF 


EQU 




I.GROP*! 






C4060027 


0441 




SRTRY 


EQU 




STBF»i 






C4060028 


0C17 


0006 


SKI1 


OC 




/0006 


PIO 




C4060029 


GCld 


0000 


SKI2 


OC 




/OOOO 


CO NO 




C4060030 


0C19 


OOOA 


SK13 


OC 




/OOOA 


NO CF ENTRIES 




C4060031 


0C1A 


6 30 A 


SKI4 


LOX 


3 


10 






C4060032 


0C1B 


1010 




SLA 




16 






C4060033 


0C1C 01 


07000C00 


SK9 


STO 


L3 


SWoi-1 


CLEAR CATA STORAGE 




C4060034 


OClfc 


73FF 




MDX 


3 


-I 


OECR IX 3 




C406003S 


0C1F 


70FC 




MDX 




SK9 


LOOP 




C4060036 


0C20 01 


C4000CC8 




LO 


L 


K0001 






C4060037 


0C22 01 


04000CCA 




STO 


L 


MONSM 


SET SU 




C4060038 


0C24 00 


4480012E. 




BSI 


I 


SSUER 


SET ERROR RETURN 


SRC 


C4060039 


0C26 00 


44d0012C 




BSI 


I 


KEY 


ENTER TOTAL TYPES 


SRC 


C4060040 


0C28 1 


0003 




OC 




SHI 






C4060041 


CC29 


8110 


• 


OC 




/8110 






C4060042 
C4060043 


0C2A 00 


C400013E 




LO 


L 


BINRY 


GET ENTRY 




C4060044 


0C2C 01 


4C160CF6 




BSC 


L 


SKEOlt*- 


BR IF ZERO 




C4060045 


0C2E 01 


84000CC0 




CMP 


L 


K0008 


CK FOR MAX 




C4060046 


0C30 


703F 




MDX 




SKE02 


ERROR 




C4060047 


0C31 


1000 




NOP 











C4060048 


0C32 01 


04000CCF 




STQ 


L 


TYCT 


SAVE 




C4060049 


0C34 01 


D4Q00C0Q 


* 


STO 


L 


TYCT1 






C4060050 
C40600S1 


0C36 00 


4480012E 


SK2 


BSI 


: 


SSUER 


SET ERROR RETURN 


SRC 


C4060052 


0C38 00 


4480O12C 




BSI 


s 


KEY 


JL FOR TYPE 


SRC 


C40600S3 


0C3A 1 


0027 




OC 




SM2 






C4060054 


0C3E 


6120 


• 


OC 




/8I20 






C40600S5 
C40600S6 


0C3C 00 


4480012F 




BSI 


i 


SIL 


CK IL 


SRC 


C4060057 


0C3E 01 


04000CC4 


» 


STO 


i. 


TEMP 


SAVE 




C4060058 
C4060059 


0C4O 00 


4480012E 




bSI 


i 


SSUER 


SET ERROR RETURN 


SRC 


C4060060 


0C42 00 


4450012C 




BSI 


i 


KEY 


LNTER ILSM 


SRC 


C4060061 


0C44 1 


0C4A 




DC 




SM3 






C4060062 


0C45 


8120 


* 


OC 




/8120 






C4060063 
C4060064 


0C46 00 


4430013O 




BSI 


i 


SILSU 


OK ILSW BIT 


SRC 


C406006S 


0C4 8 01 


F4000CC4 




EOR 


L 


TEMP 


6UIL0 OOEF 




C4060066 


0C4A 01 


F4000CCE 




EOR 


L 


HOOOF 






C4060067 


CC4C 


0077 




STO 




TEMP 






C40o006S 


DATE 


04NOV66 
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0C40 00 4480012E 
0C4F 00 4480012C 
0C51 1 0075 
0C52 8110 



0C53 00 
0C5 5 01 
OC57 
0C58 
0C59 
0C5A 01 
0C5C 00 
0C5E 
OC60 
0C61 



01 


01 



0C63 00 



C400013E 

4C180CF9 

6075 

7068 

1000 

040OOC5D 

67000000 

74000CCA 

7002 

4C000C6C 

4480012E 



0C65 00 4480012C 
0C67 1 0093 
0C68 8000 

0C69 00 44800120 
0C6B 7007 

0C6C C057 
OCfcC 01 070C0CD1 
0C6F 7018 
0C70 00 44800132 
0C72 1 OOOfc 



0C73 
0C74 
0C75 
0C76 01 
0C7B 01 
0C7A 01 
0C7C 
0C70 
0C7E 
CC7F 
0C81 
0C82 01 
0C84 01 
0C86 01 
0C88 01 
0C8A 
0C8B 
0C8C 01 
0C8E 01 
0C90 01 
0C92 
CC93 01 
0C95 01 
0C97 01 
0C99 00 
0C9B 00 
0C90 1 
0C9E 





01 




C050 

005C 

1010 

07000C01 

04000CCA 

C7000C01 

4820 

7000 

6302 

C4000C50 

F046 

4C180C99 

C40O0C50 

F4000CCC 

4C200CA2 

700E 

6300 

C4000C50 

F4000CC8 

4C180C99 

6301 

C4000C50 

F4000CCC 

4C200CA2 

443001 2 E 

4480012C 

OOBO 

8000 



0C9F 00 4480012D 
0CA1 7004 



0CA2 01 
0CA4 O 
CCA5 



74FF0CCF 

7091 

7035 



0CA6 01 C7000CC5 
0CA8 F031 



DATE 
EC NO. 



04NGV66 
415233 



S4 



T2 



* 

SK3 

SKA 

SKE02 

• 
SK4 



SK5 



SK5A 



* 
SK7 



SK6 



BSI 
BSI 
DC 
OC 

LD 

BSC 

CMP 

MOX 

NOP 

STO 

LOX 

MDX 

MDX 

asc 

BSI 

BSI 

OC 

OC 

BSI 

MOX 

LO 

STO 

MOX 

BSI 

OC 

LD 

STO 

SLA 

STO 

STO 

LD 

BSC 

MOX 

LOX 

LD 

EOR 

BSC 

LD 

EOR 

BSC 

MDX 

LOX 

LD 

EOR 

BSC 

LOX 

LD 

EOR 

BSC 

BSI 

BSI 

DC 

OC 

BSI 
MOX 

MDX 

MDX 

MDX 

LO 

EOR 



I SSUER 
I KEY 

SMS 

/8110 



L BINRY 
L SKE03.+- 

K0008 

SKE04 


L S4*l 
L3 
L MONSW.O 

T2 
L SK3 
I SSUER 

I KEY 
SM6 
/8000 

I CKYN 
SK4 

TEMP 
L3 SWB1 

SK5 
I SER 

SE001 



TEMP 
SHB1 
16 
L3 SWB1 
L MONSM 
L3 SWB1 
Z 

SK5 
3 2 
L S4+1 

K0001 
L SK5A,* 
L S4+1 
L K0005 
L SK7.Z 
SK5A 
3 
S4+1 
K0001 
SK5A,» 
1 

S4+1 
K0005 
SK7.Z 
SSUER 
KEY 
SM7 
/8000 



I CKYN 
SK6 

L TYCT.-l 

SK2 

SK8 
L3 TBL 

SWB10 







C4060069 


SET ERROR RETURN 


SRC 


C4060070 


ENTER TYPE NO 


SRC 


C4060071 
C4060072 
C4060073 
C4060074 


GET ENTRY 




C4060075 


BR IF ZERO 




C4060076 


CK FOR MAX 




C4060077 


ERROR 




C4060078 
C4060079 
C4060080 
C40 60081 


IS PON OV SET 




C40o0082 
C4060083 
C4060084 


SET ERROR RETURN 


SRC 


C4060085 
C4060086 


IS THIS MON OEV 


SRC 


C4060087 
C406C088 
C4060039 
C4060090 


CK FOR V OR N 


SRC 


C40o0091 


ENTRY WAS Y 




C4060092 
C4060093 


GET OOEF 




C4060094 
O.060095 
C4060096 


MORE THAN 8 TYPES 


SRC 


C4060097 
C4060098 
C4060099 
C4060100 
C4060101 
C4060102 
C4060103 


CLEAR MCN SW 




C4060104 


GET ENTRY 




C4060105 


SKIP IF ZERO 




C4060106 


BRANCH 




C4060107 


SET IX 




C4060108 


GET 10 




C4060109 


CK FOR 1 




C4060U0 


BRANCH IF 1 




C4060111 


GET 10 




C4060112 


CK FOR 5 




C4060113 


BRANCH IF NOT 5 




C4060114 


BRANCH 




C4060115 
C4060116 


GET NUMBER 




C4060117 


IS IT 1 




C4060118 


YES 




C4 0601 19 
C4060120 


GET NUMBER 




C4C60121 


IS IT 5 




C4060122 


NO 




C406G123 


SET ERROR kETURN 


SRC 


C4060124 


IS IT 1816 


SRC 


C4060125 
C4060126 
C4060127 
C4060126 


CK fOR Y OR N 


SRC 


C4060129 


ENTRY MAS Y 




C4060130 
C4060131 


OECR TYPE CT 




C4060132 


LOOP 




C4060133 


EXIT 




C4060134 


SET 1816 INO 




C4060135 
C4060136 
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OCA 9 0030 




STO 


SMB10 




OCAA 73rF 
OCAd 7001 
OCAC 70F5 




MOX 
MOX 
MOX 


3 -1 
SKSO 
SK7 


DECR IX 3 

BRANCH 


OCAD 01 C4000C5D 
OCAF F018 
OCBO 01 4C160C84 


SKSC LO 
EOR 
8SC 


L S4*l 

KOOOl 
L SKS1.+- 


GET 10 
IS IT 1 
YES 


0Cb2 
0CB3 


6301 
70F2 




LOX 
MOX 


3 1 

SK6 


SET IX 


0CB4 
0CB5 


6300 
70Fy 


SKSI 

* 
SKB 


LOX 
MOX 


3 
SK6 


SET IX 


0CB6 01 6S800C17 
0CB8 01 66800C18 


LOX 

LOX 


11 SKI1 

12 SKI2 


SET IXING 


OCBA 01 67800C19 


• 


LOX 


13 SKIS 




OCBC 00 44800133 
OCBE I OCOl 


8SI 

OC 


I SECSU 
SWBl 


SET CARO 


0C3F 00 4C00013A 




8SC 


L S2 


EXIT 


0CC1 00 44800132 
0CC3 1 OOOE 


SKE04 BSI 
OC 


I SER 
SE001 


FLO GREATER 8 


0CC4 
0CC5 


0000 
4000 


TEMP 
TBL 


OC 
DC 



/4000 


CONSTANTS 


0CC6 


0400 




OC 


/0400 




0CC7 


8000 




OC 


/8000 




0CC8 


0001 


KOOOl OC 


1 




0CC9 1 


OCOA 


KLMT 


OC 


SWB10 




OCCA 


0000 


MONS-* DC 







occa o 


0400 




OC 


/0400 




OCCC 


0005 


K0005 OC 


5 




OCCC 


0008 


K0003 OC 


8 




OCCE 


OOOF 


HOOOF 


OC 


/OOOF 




OCCF 


0000 


TYCT 


DC 







CCOO 


0000 


TVCT1 


OC 







OCOl 
0CD2 


0000 
0000 


SWB1 

SWB2 


OC 
DC 






OATA STORAGE 


0C03 


oooo 


SHB3 


OC 







0C04 


0000 


Shb4 


OC 







0CD5 


oooo 


SKB5 


DC 







0C06 


oooo 


SW8 6 


OC 







0CD7 


oooo 


SW8 7 


DC 







0C08 


oooo 


SWB8 


DC 







0C09 


oooo 


SW89 


OC 







OCDA 


oooo 


SkblO 

• 

SK8 


OC 







OCDB 01 


67800C00 


LDX 


13 TVCTl 




OCOD 00 


6500FFF8 




LOX 


LI -8 




OCOF 01 


66000C02 




LOX 


L2 SHB2 




0CE1 


6A01 




STX 


2 SKX+i 




0CE2 00 


66000000 


SKX 


LDX 


L2 


CK DDEFS 


0CE4 01 


C5000C09 


SKX1 


LO 


LI SWBl+8 


0CE6 01 


4C180CEB 




BSC 


L SKA1,«— 




0CE8 


F200 




EOR 


2 




0CE9 01 


4C180CFC 




BSC 


L SKE05,*- 




OCEB 


7201 


SKA1 


MOX 


2 1 




OCEC 


6A07 




STX 


2 TCMP 




OCEO 


COOB 




LO 


KLMT 




OCEE 


F005 




EOR 


TEMP 




OCEF 01 


4C200CE4 




BSC 


L SKXliZ 




0CF1 01 


74010CE3 




MDX 


L SKX+1 ,1 




0CF3 


7101 




MOX 


1 1 




0CF4 


70E0 




MOX 


SKX 




0CF5 


70C0 


£ 


MOX 


SKB 




0CF6 00 


44800132 


SKEOI 


BSI 


I SER 


ZERO TYPES 


0CF8 1 


OOOE 




DC 


SE001 




0CF9 00 


44800132 


SKE03 


t>SI J 


SER 


FLO ZERC 


DATE 


04N0V66 










EC NO. 


415233 











SRC 



SRC 



SRC 
SRC 
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C4060137 

C4060138 

C4060139 

C4060140 

C4060141 

C4060142 

C4060143 

C4060144 

C4060145 

C4060146 

C4060147 

C4060148 

C4060149 

C4060150 

C4060151 

C4060152 

C4060153 

C4060154 

C406015S 

C40601S6 

C4060157 

C4060158 

C4060159 

C4060160 

C4060161 

C4060162 

C4060163 

C4060164 

C406016S 

C4060166 

C4060167 

C4060168 

C4060169 

C4060170 

C4060171 

C4060172 

C4060173 

C4060174 

C4060175 

C4060176 

C4060177 

C4060178 

C4060179 

C4060180 

C4060181 

C4060182 

C4060183 

C406018* 

C4060185 

C4060186 

C4060187 

C4060188 

C4060189 

C4060190 

C4060191 

C4060192 

C4060193 

C4060194 

C4060195 

C4060196 

C4060197 

C4060198 

C4060199 

C4060200 

C4060201 

C4060202 

C4060203 

C4060204 
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PAGE 
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X 
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OCFB 1 ODOE 
OCFC 01 65000C1A 
OCFE 00 60000441 
OOOO 00 44800132 
0002 1 00F5 



0003 


0012 


ODOC 


0012 


0015 


0012 


001 E 


0010 


0026 


FFFF 


0027 


0012 


0030 


0012 


0039 


0012 


0042 


OOOO 


004 9 


FFFF 


004A 


0012 


0053 


0012 


005C 


0012 


0065 


0012 


006 £ 


OOOB 


0074 


FFFF 


0075 


0012 


007 E 


0012 


0087 


0012 


0090 


0004 


0092 


FFFF 


0D93 


0012 


009C 


0012 


00 A 5 


0012 


OOAE 


0012 


0DE.7 


0009 


OOBC 


FFFF 


OOBO 


0012 


00C6 


0012 


OOCF 


0012 


0008 


0009 


OOOO ■ 


FFFF 


OOOE 


00i2 


00E7 


0012 


OOFO 


0008 


O0F4 


FFFF 


0DF5 


0012 


ODFE 


0012 


0E07 


OOOF 


OEOF 


FFFF 



0E10 00 4C000138 
0E12 0E10 



DATE 
EC NO. 



04N0V66 
415233 





OC 


SEOOI 


SKE05 LOX 


LI SKI4 




STX 


LI SRTRY 




BSI 


I SER 2 DOEFS t 




OC 


SE005 


* 






SMI 


EBC 


•CO04 PIO 06-CD 00. 




EBC 


• ENTER NUMBER OF . 




EBC 


•TYPEWRITERS ON SYS. 




EBC 


.TEM-1-8, 1 DIGIT. 


• 


DC 


/FFFF 


SM2 


EBC 


.C001 PIO 06-CO 00. 




EBC 


. ENTER 2 DIGIT OE. 




EBC 


-CIMAL INTR LVL FCR. 




EBC 


. A TYPEWRITER. 


* 


OC 


/FFFF 


SM3 


EBC 


• C002 PIO 06-CO 0.. 




EBC 


. ENTER 2 DIGIT OE. 




EbC 


•CIMAL ILSW BIT FOR. 




EBC 


. TYPEWRITER ON ABO. 




EBC 


•VE INTR LVL. 


* 


OC 


/FFFF 


SH5 


EBC 


•C037 PIO 06-CD 00. 




EbC 


• ENTER 1 DIGIT TV. 




EBC 


•PfcWRlTER 10 NUMBER. 




EBC 


•-1-8. 


• 


OC 


/FFFF 


SM6 


E6C 


•C036 P1D 06-CO 00. 




fcBC 


IS THE ABOVE ID . 




EBC 


•NUMBER FOR 01AG MO. 




EBC 


•N OUTPUT OEVICE-TY. 




EBC 


•PE Y OR N. 


* 


OC 


/FFFF 


SM7 


EBC 


•C036 PIO 06-CO 00. 




EBC 


. IS THE ABOVE 10 . 




EBC 


•NUMBER FOR 1816-TY. 




EBC 


•PE Y OR N. 


* 


OC 


/FFFF 


SE001 


EBC 


•E007 PIO 06-CO 00. 




EBC 


. ENTRY TOO LARGE . 




EBC 


. OR OOOO. 


* 


OC 


/FFFF 


SE005 


EBC 


-E006 PIO 06-CO 00. 




EBC 


• 2 CR MORE ENTRIE. 




EbC 


•S ARE IDENTICAL. 


* 


OC 


/FFFF 


EN01 


BSC L 


ENOO 




END 


EN01 



SRC 



C4 06020 5 
C4060206 
C4060r07 
C4060208 
C4060209 
C4060210 
C4060211 
C4060212 
C4060213 
C4060214 
C4060215 
C4060216 
C4060217 
C4060218 
C4060219 
C4060220 
C4060221 
C4060222 
C4060223 
C4060224 
C4060225 
C4060226 
C4060227 
C4060228 
C4060229 
C4060230 
C4060231 
C4060232 
C4060233 
C4060234 
C4060235 
C4060236 
C4060237 
C4U60238 
C4060239 
C4060240 
C4060241 
C4060242 
C4060243 
C4060244 
C4060245 
C4060246 
C4060247 
C4060248 
C4060249 
C4060250 
C4060251 
C4060252 
C4060253 
C4060254 
C4060255 
C4060256 
C4060257 
C4060258 
C4060259 
C406025 C4060269 
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CROSS REFERENCE LISTING 

REFERENCES 

0C17 

0C17, 0C2A.OC5 3 

0C17, 3C69.0C9F 

0C17, 0E1O 

0E12 

0C17 

0C4A 

,£j 7 / 0C2o '°"8,0C42,0C4F,0C65,0C9e 
OCEO 

0C20, OC8l,0C8E,0CAF 

0C86.OC95 

0C2E.0C57 

0C17 

0C17 

0C22.0C5E.0C78 

0C17 

0C17 

0C17 

0C17 

0C17.0CBC 

0C17,0C70,0CC1,0CF6,0CF9,0000 

OC72,0CC3 t OCF8,0CF8 

0002 

0C17.0C3C 
0C17.0C46 

0CE6 

0CF5 

0C2C 

0C30 

0C55 

0CS8 

0CE9 

0C17 

0C17 

0CB6 

0CS8 

OCfaA 

OCFC 

OCAS 

OCBO 

0CE1,0CF1,0CF4 

OCEF 

0CA4 

0C61 

0C6B 

0C6F.0C70 

0C82.0C8A.0C90 

0CAI,0CB3,0C85 

0C88,0C97,0CAC 

OCAS 
0C1F 
0C28 
0C3A 
0C44 
0C51 
0C67 
0C90 
OCFE 

£C17.0C24 t OC36,OC40,OC4D.OC63.0C99 

OCA8,0CA9jOCC9 ,w " 

OCOF 



( ( ( ( 

( ( < ( 
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SYMeOL VALUE 


BGNR 


0438 


BINRV OliE 


CKYN 


0120 


ENOO 


0138 


ENC1 


0E10 


ERR 


0439 


hOOuF 


OCCt 


KEY 


012C 


KEVIN 


010F 


KLMT 


OCCV 


K0001 


0CC8 


KOOOS 


OCCC 


K00C8 


OCCO 


LGROP 


043F 


LWC 


043E 


MONSW 


OCCA 


MTRM 


0438 


P0KY6 


0136 


PHKY8 


0137 


SCH 


0131 


SfcCSU 


0133 


SER 


0132 


S6001 


ODOE 


SEOOS 


OOF 5 


SIL 


012F 


SUSM 


0130 


SKA 


0C60 


SKA1 


0CE8 


SK8 


0CB6 


SKE01 


0CF6 


SKE02 


0C70 


SKE03 


0CF9 


SKE04 


0CC1 


SKE05 


OCFC 


SKI NO 


0135 


SKIN1 


0134 


SKI1 


0C17 


SKI 2 


0C18 


SKI3 


0C19 


SKI* 


0C1A 


SKSO 


OCAD 


SKS1 


0CB4 


SKX 


OCE? 


SKXi 


0CE4 


SK2 


0C36 


SK3 


0C6C 


SK4 


0C73 


SK5 


ocaa 


SK5A 


0C99 


SKo 


0CA6 


SK7 


0CA2 


SK8 


0C0B 


SK9 


0C1C 


SMI 


0003 


SM2 


0027 


SM3 


004A 


SMS 


007S 


SM6 


0093 


SM7 


0030 


SRTRV 


04-.1 


SSUER 


012E 


STBF 


0440 


SwBl 


0C01 


SWBIO 


OCOA 


SWB2 


0C02 


DATE 


04NOV66 


EC NO. 


415233 
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SWB3 

SWB4 

SUBS 

SW86 

SkB7 

SW86 

SMB9 

S2 

S4 

TBL 

TEMP 

TERM 

TRFX 

TYCT 

TYCT1 

T2 

hCC 

2ER0 



0CD3 

OC04 

OCOS 

0C06 

0C07 

OCOS 

0C09 

013A 

0C5C 

0CC5 

0CC4 

0430 

043C 

OCCF 

OCOO 

0C63 

043A 

0437 



0C17, OCBF 

OC5A,0C7F,0C84,0C8C,OC93,0CA0 
vLAo 

OC3E,0C48,OC4C,0C6C,OC73,0C£C,OC£e 

0C17 

0C32.OCA2 

0C34.0C0B 

0C60 

0C17 

0C17 




r. 

r, , 
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0000 






ORG 


•♦3095 


012C 




KEY 


EOU 


300 


0120 




CKYN 


EQU 


KEY*1 


012 E 




SSUER 


EOU 


CKYN* I 


012F 




SIL 


EOU 


SSUER + l 


0130 




SILS* 


EOU 


SIL*1 


0131 




SCH 


EOU 


SILSWU 


0132 




SER 


EOU 


SCH*1 


0133 




SECSU 


EOU 


SER*1 


0134 




SKIN1 


EQU 


S£CSU*l 


0135 




SKI NO 


EOU 


SKINi*! 


0136 




POKYB 


EQU 


SKIN0»1 


0137 




PHKYd 


EOU 


POKYB+l 


0138 




ENOO 


EQU 


PHKY8*l 


013A 




S2 


EOU 


EN00*2 


013E 




BINRY 


EQU 


S2+4 


010F 




KEVIN 


EQU 


8INRY*l6l 


0437 




ZERO 


EQU 


KEYIN4600 


0438 




BGNR 


EQU 


2£R0*1 


0439 




EkK 


EOU 


BGNR+1 


04 3 A 




k-CC 


EQU 


EP.R*1 


043 B 




MTnM 


EQU 


WCC*l 


04 3C 




TRFX 


EQU 


MTRM+l 


0430 




TERM 


EQU 


TRFX*l 


043E 




LhC 


EOU 


TERM*1 


043F 




LGROP 


EQU 


LWC*l 


0440 




SToF 


EQU 


LGR0P*1 


0441 




SRTRY 


EOU 


STBF*l 


0C17 


0006 


SKI1 


DC 


/0006 


0C18 


FFFF 


SKI 2 


DC 


/FFFF 


0C19 


0000 


SKI 3 


DC 





0C1A 


0000 


SKI 4 


OC 





0C1B 00 


4C000138 


EN01 


BSC L 


ENDO 


0C1E 


0C18 




ENO 


END1 



CATE 

EC NO. 
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415233 



C4061001 
C4061002 
C4061003 
C4061004 
C4061005 
C4061006 
C4061007 
C4061008 
C4061009 
C4061010 
C40610U 
C4061012 
C4061013 
C4061014 
C4061015 
C4061016 
C4061017 
C4061018 
C4061019 
C4061020 
C4061021 
C4061022 
C4061023 
C4061024 
C4061025 
C4061O26 
C4061027 
C4061028 
C4061029 
C4061030 
C4061031 
C4061032 
C4061033 
C406103 C4061043 
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• 

t 

t 
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SYMBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENDO 


0138 


0C17.0C1B 


END1 


0C1B 


0C1D 


ERR 


0439 


0C17 


KEY 


cue 


0C17 


KEY IN 


01DF 


0C17 


LGKOP 


043F 


0C17 


LHC 


043E 


0C17 


MTRM 


043B 


0C17 


PDKY8 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILSM 


0130 


0C17 


SKING 


0135 


0C17 


SKIM 


0134 


0C17 


SKil 


0C17 




SKI2 


0C18 




SKIS 


0C19 




SKI 4 


0C1A 




SRTRY 


0441 




SSUER 


012E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


kCC 


C43A 


0C17 


ZERO 


0437 


0C17 



CATE 
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0000 






ORG 




♦♦3095 






C4070001 


012C 




KEY 


EQU 




300 






C4070002 


0120 




CKVN 


EOU 




KEY*1 






C4070003 


012E 




SSUEfi 


EQU 




CKYN+1 






C4070004 


012F 




S1L 


EQU 




SSUER+1 






C4070005 


0130 




SllSk 


EQU 




SIL+1 






C4070006 


0131 




SCH 


EQU 




silsw*i 






C4070007 


0132 




SER 


EQU 




SCH+l 






C407000S 


0133 




SEC SI 


EQU 




SER*l 






C4070009 


0134 




SK1N1 


EQU 




secsu«i 






C4070010 


0135 




SKINC 


EOU 




SKIN1+1 






C4070011 


0136 




POKYB 


EQU 




SKINO+1 






C4070012 


0137 




PHKYB 


EQU 




PDKY8H 






C4070013 


0138 




ENOO 


EQU 




PHKYB*1 






C4070014 


013A 




S2 


EQU 




ENDO+2 






C407001S 


013E 




BINRY 


EOU 




S2+4 






C4070016 


01DF 




KEYI, 


EQU 




BINRYU61 






C4070017 


0437 




ZERO 


EOU 




KEYIN«600 






C4070018 


0438 




6GNR 


EQU 




ZER0*1 






C4070019 


0439 




ERR 


EQU 




BGNR+l 






C4070020 


043A 




WCC 


EQU 




ERR*1 






C4070021 


043B 




MTRH 


EQU 




«CC*l 






C4070022 


043C 




TRFX 


EQU 




HTRM+1 






C40 70023 


0430 




TERM 


EQU 




TRFX*l 






C4070024 


0436 




LMC 


EOU 




TERM*i 






C4070025 


043F 




LGROP 


EOU 




LWC+1 






C40 70026 


0440 




STBF 


EQU 




LGROPU 






C4070027 


0441 




SRTRV 


EQU 




STBF+1 






C407C028 


0C17 


0007 


SKI1 


OC 




/0007 


PIO 




C4070029 


0C18 


0000 


SKI 2 


DC 




/OOOO 


CO NO 




C4070030 


0C19 


0003 


SKI3 


OC 




/0003 


NO ENTRIES 




C4070031 


0C1A. 00 


4480012E 


SKI4 


BS1 


I 


SSUER 


SET ERROR RETURN 


SRC 


C4070032 


0C1C 00 


4460012C 




BSI 


I 


KEY 


ENTER II 


SRC 


C4070033 


0C1E 1 


0C89 




OC 




SMI 






C4070034 


OOF 


8120 


* 


DC 




/8120 






C4070G35 
C4070036 


0C20 00 


4480012F 




BSI 


1 


SIL 


CK INT LVL 


SRC 


C4070037 


0C22 01 


04O00C84 


* 


STO 


L 


SWB1 


SAVE 




C4070038 
C4070039 


0C24 00 


4480012E 


SK1A 


BSI 


I 


SSUER 


SET ERROR RETURN 


SRC 


C40 70040 


0C26 00 


4480012C 




BSI 


I 


KEY 


ENTER ILSW 


SRC 


C4070041 


0C26 1 


OCAB 




OC 




SM2 






C4070042 


0C29 


8120 


• 


OC 




/8120 






C4070043 
C4070044 


0C2A 00 


44800130 




BSI 


I 


SILSW 


CK ILSW BIT 


SRC 


C4070045 


0C2C 01 


D4000C65 


• 


STO 


L 


SWB2 


SAVE 




C4070046 
C4070047 


0C2E 00 


4480012E 




BSI 


I 


SSUER 


SET ERRCR RETURN 


SRC 


C4070048 


0C30 00 


4480012C 




BSI 


I 


KEY 


ENTER CHANNEL 


SRC 


C4070049 


GC32 1 


OCCC 




OC 




SM3 






C4070050 


0C33 


8110 


• 


OC 




/8110 






C4070051 
C40700S2 


0C34 00 


44800131 




BSI 


I 


SCH 


tX CHANNEL 


SRC 


C4070053 


0C36 01 


04000C86 


• 


STO 


L 


SWB3 






C4070054 
C4070055 


0C38 00 


4460012E 




BSI 


I 


SSUER 


Set error return 


SRC 


C4070056 


0C3A 00 


44d0012C 




BSI 


1 


KEY 


IS DR A 9 TRK 


SRC 


C4070057 


0C3C 1 


OCEA 




OC 




SM4 






C4070058 


0C3C 


8000 


• 


OC 




/8000 






C4070059 
C4070060 


0C3E 00 


44800120 




BSI 


I 


CKYN 


CK FOR Y OR N 


SRC 


C4070061 


0C40 


7005 


• 
• 
• 


MDX 




SK1E 

DRIVE 


ENTRY MAS Y 
IS 7 TRACK 




C407O062 
C4070063 
C4070064 
C4070065 


0C41 01 


C4000C82 


SKIS 


LO 


L 


TR7 


SET DR • 7 TRK 




C40 70066 


0C43 01 


04000C87 




STO 


L 


SWB4 


SAVE 




C4070067 


0C45 


7004 




MDX 




SK1C 






C40 70068 


CATE 


04N0V66 














PROG 10 08C4-0 


EC HO. 


415233 














PAGE IS 



o 




c 





r. 



1 
t 
t 
t 
t 



( 
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0C46 01 C4000C83 
0C48 01 D4000C87 

0C4A 00 4480012E 

0C4C 00 4480012C 

0C4E 1 0009 

0C4F 8000 

OCSO 00 44800120 
0C52 7001 
0C53 7013 

0C54 00 4480012E 
0C56 00 4480012C 
0CS8 1 0028 
0C59 8000 

0C5A 00 4480C12D 
0C5C 7005 



0C5C 01 C4000C82 
0C5F 01 04000C88 
0C61 7009 



0C62 01 
0C64 01 
0C66 
0C6 7 00 
0C69 01 
0C6b 
0C6C 
0C6E 
0C6F 
0C70 



01 











C4000C83 

D4000C86 

7004 

C4000430 

D4000C88 

6500 0C84 

C100 

F101 

F102 

D100 



0C71 01 C4000C87 
0C73 0101 

0C74 01 C4000C88 
0C76 0102 

OC77 01 66800C18 
0C79 01 65800C17 
CC7B 01 67800C19 

0C70 00 44800133 
0C7F 1 0C84 
0C80 00 4C00013A 



0C82 


0001 


0C83 


0000 


0C64 


0000 


0C85 


0000 


OC86 


0000 


0C87 


0000 


CC88 


0000 


0C89 


0012 


CC92 


0012 


0C98 


0012 


CATE 


04N0V66 


EC NO. 


415233 



* 
SK1E 

SK1C 



* 
SK15 



* 
* 
* 
SKIS 



SK20 



SK1F 
SK21 



LD 

STO 

MOX 

LO 

STO 

LOX 

LO 

EOR 

EOR 

STO 

LO 
STO 

LO 
STO 

LDX 
LOX 
LOX 

BSI 

OC 

BSC 



DC 
OC 
OC 



TR7 
TR9 
SWB1 
SkB2 OC 
SWB3 OC 
SWB4 OC 
SWB5 OC 
* 
SMI 



EBC 
EBC 
ESC 



DRIVE IS 9 TRACK 



LO 
STO 

BSI 
BSI 
DC 
DC 

BSI 
MDX 
MOX 

BSI 
BSI 
OC 
OC 

BSI 
MOX 



LO 
STO 

MDX 



TRV 

SWE4 

SSUER 
KEY 
SM5 
/8000 

CKYN 
SKI5 
SK1F 

SSUER 
KEY 
SMS 
/8000 

CKYN 
SK20 



SET DR « 9 TRK 
SAVE 

SET ERROR RETURN 
IS DR 1 AVAIL 



CK FOR Y OR N 
ENTRY HAS V 
ENTRY WAS N 

SET ERRCR RETURN 
IS DR 1 9 TRK 



CK FOR V OR N 
ENTRY WAS Y 



TR7 

SWB5 

SK21 



DRIVE I IS 7 TRACK 

SET OR 1 « 7 TRK 
SAVE 



L TR9 

L SWB5 
SK21 

L TERM 

L SWB5 

LI SWB1 

1 

1 1 

1 2 

1 

L SWB4 
1 1 

L SWB5 
1 2 

12 SKI2 
II SKI1 

13 SKIS 

I SECSU 

SWB1 
L SZ 



/0001 

/oooo 









DRIVE 1 IS 9 TRACK 

SET DR 1 » 9 TRK 
SAVE 

SET OR 1 NOT AVAIL 

SAVE 

BU1L0 ODEF 



SAVE 

SET OR 0-NO TRKS 

SET OR 1-NO TRKS 

SET 1XING 

SET CARD 
EXIT 

CONSTANTS 
ENTRY STORAGE 



•C001 PIO 07-CO 00. 
. ENTER 2 DIGIT OE. 
.CIMAL INTRPT LVL F. 
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C4070069 
C4070070 
C4070071 
C4070072 
C4070073 
C4070074 
SRC C4070075 
SRC C4070076 
C4070077 
C4070078 
C4070079 
SRC C4070080 
C4070081 
C4070082 
C4070083 
SRC C4070084 
SRC C4070085 
C4070086 
C4070087 
C4070083 
SRC C4070089 
C4070090 
C4C70091 
C4070092 
C4070O93 
C4070094 
C4070095 
C4070096 
C4070097 
C4070098 
C4070099 
C4070100 
C4070101 
C4070102 
C4070103 
C4C70104 
C4070105 
C4070106 
C4070107 
C4070108 
C4070109 
C*070110 
C4070111 
C4070112 
C4070113 
C4070114 
C4070115 
C4070116 
C4070117 
C4070118 
C4070119 
C4070120 
SRC C4070121 
C-.070122 
C4070123 
C4070124 
C4070125 
C4070126 
C4070127 
C4070128 
C4070129 
C4070130 
C4070131 
C4070132 
C4070133 
C4070134 
C4070135 
C4070136 
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OCA* 


OOOB 


GCAA 


FFFF 


OCAB 


0012 


0CB4 


0012 


ocao 


0012 


0CC6 


0009 


0CCB 


FFFF 


OCCC 


0012 


0CD5 


0012 


0C0E 


0012 


0CE7 


0003 


CCE9 


FFFF 


0CEA 


0012 


0CF3 


0012 


OCFC 


0012 


0005 


0006 


oooe o 


FFFF 


0009 


0012 


0012 


0012 


0018 


0012 


0024 


0005 


002 7 


FFFF 


002 8 


0012 


0031 


0012 


0D3A 


0012 


0043 


FFFF 



0044 00 4C000138 
0046 0044 



CATE 
EC NO. 



04N0V66 
415233 





EBC 


.OR HAG TAPE. 


* 


OC 


/FFFF 


SM2 


EBC 


•C002 P10 07-CO 00 




EBC 


. ENTER 2 DIGIT OE. 




EdC 


.CIMAL ILSW BIT FOR, 




EBC 


. HAG TAPE. 


$ 


OC 


/FFFF 


SM3 


EBC 


.C003 P1D 07-CO CO. 




EBC 


. ENTER 1 DIGIT OE. 




EBC 


-C1HAL CH FOR HAG T. 




EBC 


.APE. 


* 


OC 


/FFFF 


SM4 


EBC 


•C013 P10 07-CO 00. 




EBC 


. IS TAPE OR A 9. 




EBC 


. TRACK DRIVE-TYPE . 




EBC 


.Y OR N. 


• 


OC 


/FFFF 


SM5 


EBC 


•C005 PIO 07-CO 00. 




EBC 


. OOES THIS SYSTEM. 




EBC 


. HAVE 2 ORS-TYPE V. 




EBC 


. OR N. 


* 


DC 


/FFFF 


SH6 


EBC 


•C013 PID 07-CO 00. 




EBC 


. IS DR 1 A 9 TRK . 




EoC 


.DRIVE-TYPE Y CR N . 


* 


OC 


/FFFF 


EN01 


BSC I 


ENOO 




END 


END1 



C4070137 
C4070138 
C4070139 
C4070140 
C4070141 
C4070142 
C4070143 
C4070144 
C4070145 
C4070146 
C4070147 
C4070148 
C4070149 
C4070150 
C4070151 
C4070152 
C4070153 
C4070154 
C40701S5 
C4070156 
C4070157 
C4070158 
C4070159 
C4070160 
C4070161 
C4070162 
C4070163 
C4070164 
C4070165 
C4070166 
C4070167 
C4070)68 
C4070169 
C407016 C4070179 
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SYMBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


BINRY 


0I3E 


0C17 


CKYN 


012D 


0C17,OC3E,0C5O,OC5A 


ENDO 


0138 


OC 17, 0044 


END! 


0044 


0046 


ERR 


0439 


0C17 


KEY 


012C 


0Cl7,0ClC,OC26,OC30,OC3A,OC4C,OC5< 


KEYIN 


010F 


0C17 


LGRCP 


043F 


0C17 


IhC 


043E 


0C17 


HTRH 


043B 


0C17 


PDKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17.0C34 


SECSU 


0133 


0C17, 0C7D 


SER 


0132 


0C17 


SIL 


012F 


0C17, 0C20 


SILSW 


0130 


0C17.0C2A 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKI1 


0C17 


0C79 


SK12 


0C18 


0C77 


SKI 3 


0C19 


0C78 


SKI4 


0C1A 




SKI5 


0C54 


0C52 


SKIS 


OC50 




SKI A 


0C24 




SK1B 


0C41 




SK1C 


0C4A 


0C45 


SK1E 


CC46 


0C40 


SK1F 


0C67 


0C53 


SK20 


0Co2 


0C5C 


SK21 


0C6B 


0C61.0C66 


SMI 


0C89 


0C1E 


SH2 


OCAB 


0C28 


SH3 


OCCC 


0C32 


SM4 


OCEA 


0C3C 


SM5 


0D09 


0C4E 


SM6 


0028 


0C58 


SRTRY 


0441 




SSUCS 


012E 


0C17,0C1A,0C24,0C2E,0C38,0C4A,0C54 


STBF 


0440 


0C17 


SWB1 


0C84 


0C22,0C68,CC7F 


SWB2 


0C85 


0C2C 


SWB3 


0C86 


0C36 


StfB4 


0C87 


OC43,0C48,0C71 


S«iB5 


0C8B 


0C5F,OC64,0C69,OC74 


S2 


013A 


OC17.0C80 


TERM 


0430 


0C17, 0C67 


TRFX 


04 3C 


0C17 


TR7 


0C82 


0C41,0C5D 


TR9 


0C83 


0C46.0C62 


WCC 


043A 


0C17 


ZERO 


0437 


0C17 



CATE 
EC NO. 



04H0V66 
415233 



( 



A ( 



J 
3 

3 
3 
3 
3 

d ; 

3 

d : 

* ; 

3 ! 

j 

3 i 

! 
3 { 

t 

3 

I 

3 | 

i 

3 ; 

3 ; 
3 







3 


I 






3 


1 






1 


- 






3 


! 






3 
3 


* 

J 

; 
t 






3 
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( 

c 



COOO 

012C 

0120 

012E 

012F 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

013A 

013E 

010F 

0437 

0438 

0439 

043 A 

0433 

04 3C 

0430 

043E 

043F 

0440 

0441 

0C17 ( 

0C18 i 

0C19 ( 

0C1A C 



0007 
FFFF 

0000 
0000 



0C18 00 4C000138 



0C1E 



ocia 



ORG 


•♦3095 


KEY EOU 


300 


CKYN EOU 


KEY*1 


S5UEK EOU 


CKYN* I 


SIL EOU 


SSUfcR*! 


SILSH EOU 


SIL+1 


SCH EQU 


suswn 


SER EQU 


SCH»1 


SECSU EOU 


SER*l 


SKIN1 EOU 


SECSUU 


SKI NO EQU 


SKINl*l 


P0KY8 EQU 


SK1N0*! 


PHKY8 EQU 


P0KYB*i 


ENOO EQU 


PHKYB+l 


S2 EOU 


ENDO+2 


BINRY EOU 


S2*4 


KEYIN EQU 


BINRY*161 


ZERO EOU 


KEYIN-600 


BGNR EQU 


ZERO* 


ERR EQU 


BGNR* 


WCC EUU 


ERR+1 


MTRM EQU 


WCC*1 


TRFX EQU 


MTRM+1 


TERM EQU 


TRFX* 1 


LWC EQU 


TERM* I 


LGROP EOU 


LWC*1 


ST8F EQU 


LGROP+l 


SRTRY EQU 


STBF*1 


SKU DC 


/0007 


SKI 2 DC 


/FFFF 


SKI 3 DC 


/oooo 


SKI 4 OC 


/oooo 


EWD1 8SC L 


END0 


ENO 


EN01 



< < < < 

( r c c 



PART NO. 224,226b 
PAGE 20 



( < ( < < < < < < < 

( ('."' (': C ( (" ( ( 



( *K- ( ( 



C4071001 
C4071002 
C4071003 
C4071004 
C4071005 
C4071006 
C4071007 
C4071008 
C4071009 
C4071010 
C4071011 
C4071012 
C4071013 
C4071014 
C4071015 
C4071016 
C4071017 
C4071018 
C4071019 
C4071020 
C4071021 
C4071022 
C4071023 
C4071024 
C4071025 
C4071026 
C4071027 
C4071028 
C4071029 
C4071030 
C4071031 
C4071032 
C4071033 
C407103 C4071043 
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SYHBOl 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


012D 


0C17 


ENOO 


0138 


OC17.0C1B 


EN01 


0C1B 


OC10 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEYIN 


01DF 


0C17 


LGRCP 


043F 


0C17 


LHC 


043E 


0C17 


MTRM 


043B 


0C17 


POKY 6 


0136 


OCIT 


PMKY3 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SIL',, 


0130 


0C17 


SKINC 


0135 


0C17 


SKIM 


0134 


0C17 


SKI1 


0CI7 




SKI2 


0C18 




SKI 3 


0C19 




SKI4 


OCIA 




SRTRY 


0441 




SSUER 


012E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


G-.3D 


0C17 


TRFX 


043C 


0C17 


taCC 


043A 


0C17 


ZERO 


0437 


0C17 



o 



$ 

y 

:> 

i 

1 
1 

3* 

3 

1 

1 

•) 

1 



OATE 
EC NO. 



04N0V66 
415233 



prog io 

PAGE 



08C4-0 
20 



CATE 
EC NO. 



.N0V66 
415233 
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0000 

012C 

0120 

012E 

012F 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

013A 

013E 

01DF 

0437 

0438 

0439 

043A 

0438 

043C 

0430 

043 E 

043F 

0440 

0441 

0C17 ( 

0C18 I 

0C19 I 



0008 

0000 
OOOB 



0C1A 00 4480012E 
0C1C 00 4430012C 
0C1E I 0E91 
OCIF 8110 





01 



0C2O 00 
0C22 01 
0C24 01 
0C26 
0C27 
0C28 01 
0C2A 
0C28 01 
0C20 
0C2E 
0C30 01 
0C32 01 
0C34 01 
0C36 00 
0C38 01 
0C3A 
0C3B 01 
0C30 
0C3E 00 
0C40 

0C41 

0C43 

0C44 

0C45 

0C47 

0C48 

0C49 

0C44 

0C4B 

0C4C 

0C40 





00 

1 



01 

















0C4E 00 



CATE 
EC NO. 



C400013E 

4C180CE6 

B4000C05 

7027 

1000 

04000C06 

6303 

65000F20 

6203 

60000CC7 

6E0OOCC9 

6F000CCB 

C4000CCE 

04000441 

C6000F10 

0009 

C7000F29 

0001 

C6000000 

0002 

4460012C 

0071 

8120 

4E800CE8 

D100 

7101 

72FF 

70E3 

73FF 

7004 

7006 

44600132 



04N0V66 
415233 



KEY 

CKYN 

SSUEk 

S1L 

S1LSW 

SCH 

SER 

SECSU 

SK1N1 

SKI NO 

PDKY6 

PHKYB 

ENOO 

S2 

BINkY 

KEYIN 

ZERO 

BGNR 

ERR 

MCC 

MTRM 

TRFX 

TERM 

LkC 

LGROP 

STBF 

SRTRY 

SKU 

SK12 

SKI3 

SKI 4 



SKOO 
SKO 



ORG 

EQU 

EQU 

EOU 

EQU 

EOU 

EOU 

EOU 

EQU 

EQU 

EOU 

EQU 

EQU 

EOU 

EQU 

EQU 

EQU 

EQU 

EQU 

EOU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DC 

DC 

DC 

BS1 I 

BSI I 

oc 

DC 

ID L 
6SC L 
CMP L 

rox. 

HOP 

STO L 

LDX 3 

LDX LI 

LDX 2 

STX LI 

STX LZ 

STX L3 



SK21 



SKI 
SK2 

SK20 



SK5 
SKE06 



LD 

STO 

LD 

STO 

LO 

STO 
LD 

STO 

BSI 

OC 

DC 

BSC 

STO 

MOX 

MDX 

MOX 

MOX 

MOX 

MOX 

BSI 



L 
L 
L2 

L3 

L2 



♦♦3095 

300 

KEY*1 

CKYN+1 

SSUERU 

SIL*1 

SILSW*i 

SCH* I 

SER+1 

SECSU*l 

SKINl*l 

SKINO*! 

P0KV8*1 

PHKYB+1 

£NO0*2 

S2*4 

BINRV+161 

KEYIN+600 

ZER0*1 

BGNR*1 

ERR*1 

WCC*1 

MTRM*1 

TRFX*1 

TERM* I 

LWC*l 

LGROP+1 

ST6F+1 

/0008 

/OOOO 

/OOOB 

SSUER 

KEY 

SH10 

/8110 

BINRY 

SKEOSt*- 

K0003 

SKE06 



NODEV 

3 

SMB1 

3 

SKA1*1 

SKA2*1 

SKA3+1 

ERRET 

SRTRY 

T8L-1 

SK2 

TBL3-1 

SK21*1 



SKI 

KEY 

SMI 

/8120 

CK-1 



1 

-1 

SKO 

-1 

SK4 

SK6 

SFR 



PID 

CO NO 

NO ENTRIES 

SET ERROR RETURN 

ENTER NO DEVICES 



GET ENTRY 

BRANCH IF ZERO 

CK MAX 

BRANCH IF TOO GREAT 



SRC 
SRC 



SAVE ENTRY 



SAVE I XING 

SET ERROR RETURN 

• 

GET FORM 

SET 

GET T3L ADRS 

SET 

GET MSG ADRS 

SE1 

PRINT 



CHECK DATA 

SAVE 

INCR IX 1 

DECR IX 2 

LOCP 

DECR IX 3 

CHECK FOB NEXT OR 

ALL ORS COHPLETE 

NO ORIVE GREATER 3 



SRC 



SP< 



SRC 



c (' c 



( ( < < ( t < < < "< ( ( < ( ( 
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C4 08 0001 

C4060002 

C4060003 

C4080004 

C4C60005 

C4080006 

C4080007 

C4080008 

C4080009 

C4080010 

C4080C1I 

C4080012 

C4080013 

C4080014 

C4080015 

C4080016 

C4080017 

C4080018 

C4080019 

Ct080020 

C4080021 

C4060022 

C40E0023 

C40 80024 

C4080025 

C4080026 

C4060027 

C4080028 

C4080029 

C4060030 

C4060031 

C4080032 

C4080033 

C4080034 

C4080035 

C4080036 

C4080037 

C4080038 

C408C039 

C4080040 

C4080041 

C4080042 

C4080043 

C40S0C44 

C4080045 

C4060046 

C4080047 

C4080048 

C4080049 

C4060050 

C40e0051 

C4080052 

C4060053 

C406005* 

C4060055 

C4080056 

C4080057 

C49600J8 

C4060059 

C4080060 

C4080061 

C4080062 

C4C80063 

C4030064 

C4080065 

C403C066 

C4U80Q67 

C4080068 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEH 
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00 



0C5O 1 
0C51 01 
0C53 
0C54 01 
0C56 01 
0C58 
0C59 
0C5A 
0C5 8 
0C5C 
0C5D 
0C5E 
0C5F 
0C6O 
0C61 
0C63 00 
0C6 5 I 
0C66 
0C67 00 
0C69 
0C6A 
0C6B 00 
0C60 00 
CC6F 1 
0C70 
0C71 00 
0C73 
0C74 
0C75 
0C76 00 
0C78 00 



0D54 

74FF0C06 

7009 

65000F20 

67000F20 

6203 

C100 

F101 

F102 

0300 

7103 

7301 

72FF 

70F6 

4480012E 

4480012C 

0ES2 

8000 

44800120 

7001 

7049 

4480012E 

4480012C 

0E04 

8050 

C400010E 

0053 

7062 

1000 

65800106 

660001 OF 



0C7A 
0C7B 00 
0C7D 00 
0C7F 00 
0C81 00 
0C83 
0C84 
QC85 00 
0C87 01 
0C89 
0C8A 
0C88 
0C6C 
0C8D 
0C8E 
0C90 
0C91 
0C93 




O 



00 


00 









CC94 00 

0C96 00 
0C98 00 
0C9A 00 
0C9C 
0C9D 
0C9E 00 
OCAO 

0CA1 

0CA2 

0CA3 

0CA4 

OCAS 

0CA6 

OCA 7 

0CA8 

0CA9 
















DATE 
EC NO. 



C200 

040001DF 

C400043D 

D40001EO 

44800136 

0001 

0437 

C400013E 

4C180CCD 

B046 

704F 

1000 

0020 

C202 

040001DF 

C203 

D40001E0 

C204 

040001E1 

C400043D 

D40001E2 

44800136 

0003 

0437 

C400013E 

B031 

7002 

1000 

7007 

B02E 

7002 

70 3C 

7003 

B02B 

7036 



04N0V66 
415233 



SK4 
SK6 



SK7 



i.K10 



* 
SK14 



DC 

MOX 

MDX 

LOX 

LDX 

LOX 

LO 

EOR 

EOR 

STO 

MOX 

MOX 

MDX 

MOX 

BSI 

BSI 

OC 

DC 

BSI 

MDX 

MOX 

8SI 

Ail 

rc 

DC 

LO 

CMP 

MOX 

NOP 

LDX 

LOX 

LD 

STO 

LO 

STO 

BSI 

DC 

DC 

LD 

BSC 

CMP 

MDX 

NOP 

STO 

LD 

STO i 

LO 

STO 

LO 

STO 



SE007 
L NODEV,- 

SKOO 
LI SWB1 
L3 SWB1 

2 3 
1 
1 1 
1 2 

3 

1 3 
3 1 

2 -I 
SK7 

I SSUER 
I KEY 

SH12 

/8000 
I CKYN 

SK10 

OUT 
I SSUER 

I KEY 
SH13 
/8050 

L KEYIN-1 
K0056 
SKEOO 


II KEYIN-1 
L2 KEYIrt 



2 

L KEYIN 
L TERM 
L KEYIN*! 

1 PDKY6 
1 
ZERO 

L BINRY 
L SKE02,*- 

K0008 

SKE01 



SK13*2 
2 2 
L KEYIN 

2 3 
L KEYIN*1 

2 4 
L KEYIN+2 



LD 

STO 

BSI 

DC 

DC 

LO 

CMP 

MOX 

NOP 

MDX 

SKll CMP 
MDX 
MDX 
MDX 

SK12 CMP 
MOX 



TERM 

KEYIN*3 

PDKYB 

3 

ZERO 

BINRY 

K0089 

SKll 



SK13 

KOill 

SK12 

SKE04 

SK13 

K0202 

SKE03 



DECR NG OF OVICES 

LOOP 

SET I/ING 



BUILD DDEFS 



SAVE 

liVCR IX 1 

INCR IX 3 

DECR IX 2 

LOOP 

SET ERROR RETURN 

ADRS CHANGE WANTED 



CHECK FOR Y OR N 
ENTRY HAS V 
ENTRY HAS N 
SET ERRCR RETURN 
ENTER 3 DIGIT ADRS 



GET WD CT 

CK FOR MAX 



SET IXING 



GET ENTRY 

MOVE 

GET TERM 

SET 

CONVERT DATA 



GET OATA 

ERROR 

CK FOR MAX 

ERROR 



GET ENTRY 
MOVE DATA 



GET TERM 
SET 

CONVERT ENTRIES 



GET DiTA 
CK FOR OK 
CONTINUE CK1NG 

ENTRf OK 
CK ADRS 

CONTINUE CKING 
ERROR 
ENTRY OK 

ERROR 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 



SRC 



C; ( • ( • ""( \ 



3 
.1 
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C4080069 

C4080070 

C4060071 

C4080072 

C4080073 

C4060074 

C4080075 

C4080076 

C4080077 

C4080078 

C4080079 

C4080080 

C4080081 

C4080082 

C4080083 

C4080084 

C4080085 

C4080086 

C4080087 

C4080088 

C4060089 

C4080090 

C4080091 

C4080092 

C4080093 

C4080094 

C4080095 

C4080096 

C4080097 

C4080098 

C4080099 

C4080100 

C4080101 

C4080102 

C4080103 

C4080104 

C4080105 

C4080106 

C4080I07 

C4080108 

C4080109 

C4080110 

C408C111 

C4080112 

C4080113 

C4080114 

C4060115 

C40801 16 

C4080117 

C4080118 

C4080119 

C4080120 

C4080121 

C4080122 

C4080123 

C4080124 

C408012S 

C4U80126 

C4080127 

C4080128 

C4080129 

C4060130 

C4080131 

C4C80132 

C4080133 

C4080134 

C4080135 

C4080136 
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OCA A 1000 
OCAB 1003 


SKI 3 


NOP 
SLA 



3 


HUL BY 8 




C4080137 
C4080138 


OCAC 00 67000000 




LOX 


L3 






C4080139 


OCAE 01 07000F37 




SIO 


L3 SWB11 






C4080140 


OCBO 7301 




MOX 


3 1 






C4080141 


0CB1 7206 




MOX 


2 6 






C4080142 


0C32 C 71FA 




MDX 


1 -6 






C4080143 


0CB3 70C6 




MOX 


SK14 






C4080144 


GC84 6108 


OUT 


LDX 


1 8 


SET IXING 




C4080145 


OCBi 01 C5000F37 


SK15 


LO 


LI SWB11 






C4080146 


0CB7 01 05000F2F 




STO 


LI SW83 






C408014T 


0CB9 71FF 




MDX 


1 -1 


OECR IX 1 




C4080148 


OCBA 70FA 




MDX 


SKIS 






C4080149 


OCBB 01 65800C17 




LOX 


11 SKI1 


SET IXING 




C4080150 


OCBO 01 66600C18 




LDX 


12 SKI2 






C4080151 


OCBF 01 67800C19 




LDX 


13 SKI3 






C4080152 


0CC1 00 44600133 




BS1 


I SECSU 


SET UP CARO 


SRC 


C4080153 


0CC3 1 0F20 




DC 


SWBl 






C4080154 


0CC4 00 4C00013A 




BSC 


L S2 


EXIT 




C40801S5 


0CC6 00 65000000 


SKA1 


LDX 


LI 


RESTORE IXING 




C4080156 


0CC8 00 66000000 


SKA 2 


LDX 


L2 


* 




C4080I57 


OCCA 00 67000000 


SKA3 


LOX 


L3 


« 




C4080158 


OCCC 01 4C0OOC2E 




BSC 


L SKO 


ERRCR RE-ENTRY 




C4080159 


OCCE 1 0CC6 


ERRET 


OC 


SKA1 


ERRGR RETURN 




C4080160 


OCCF 0031 


K0056 


DC 


49 


CONSTANTS 




C4080161 


OCOO 0008 


K0008 


DC 


8 






C4080162 


OCOi 0657 


K0657 


DC 


/0657 






C4080163 


0C02 0059 


K0089 


OC 


89 






C4080164 


0CD3 006F 


KOI 11 


DC 


111 






C408016S 


0C04 OOCA 


K0202 


DC 


202 






C4080166 


OC05 0003 


K0003 


DC 


3 






C4080167 


OC06 0000 


NOOEV 


DC 









C40S0168 


0C07 00 44800132 


SKEOO 


BS1 


I SER 


TOO MANY ADRSS 


SRC 


C4080169 


0C09 1 0CF8 




DC 


SE001 






C4080170 


OCOA 00 44800132 


SKtOl 


BSI 


I SER 


FIELD TCO GREAT 


SRC 


C4080171 


OCOC 1 0CF8 




DC 


SE001 






C4080172 


OCOO 00 44800132 


SKE02 


BSI 


I SER 


FLO WAS ZERO 


SRC 


C4080173 


OCDF 1 0CF8 




OC 


SE001 






C4080174 


OCEO 00 44800132 


SKE03 


BSI 


I SER 


ADRS TCC GREAT 


SRC 


C4080175 


0CE2 1 ODOF 




OC 


SE004 






C4080176 


0CE3 00 44800132 


SKE04 


BSI 


I SER 


ILLEGAL ADRS 


SRC 


C4080177 


0CE5 1 0023 




DC 


SEOOS 






C4080178 


0CE6 00 44800132 


SKE05 


BSI 


I SER 


NUMBER DRS » 


SRC 


C4080179 


0CE8 1 003C 




OC 


SE006 






C4080180 


0CE9 1 OCFC 


CK 


OC 


CH 






C4080181 


OCEA 1 OCFO 




OC 


ILSH 






C4080182 


0CE8 1 0CF4 




OC 


IL 






C4080183 


OCEC 00 44800131 


CH 


BSI 


I 3CH 


CK CHANNEL 


SRC 


C4080184 


ocee oi 4C000C47 




BSC 


L SK20 






C4080185 


OCFO 00 44800130 


usw 


BSI 


I SILSW 


CK ILSW 1 BIT 


SRC 


C40801B6 


0CF2 01 4C000C47 




BSC 


L SK20 






C4080187 


0CF4 00 4480012F 


1L 


BSI 


I SIL 


CK INTR LVL 


SRC 


C408018S 


0CF6 01 4C000C47 


• 


BSC 


L SK20 






C4080189 
C4080190 


OCFS 0012 


SE001 


EBC 


• E007 PID 


08-CD 00. 




C4080191 


0D01 0012 




tec 


. ENTRY TOO LARGE . 




C4080192 


OOOA 0007 




EBC 


.OR 0000. 






C40 80193 


OOOE FFFF 


• 


OC 


/FFFF 






C4080194 
C4080195 


ODOF 0012 


SE004 


EBC 


.EOOA PIO 


08-CD 00. 




C4080196 


0018 0012 




EBC 


. AORS IS 


TOO GREA. 




C408019? 


0021 0001 




EBC 


• T. 






C4080198 


0022 FFFF 


* 


DC 


/FFFF 






C4080199 
C4080200 


0023 0012 


SE005 


EBC 


• E008 PID 


08-CD 00. 




C4080201 


002C 0012 




EBC 


. ADRS WAS BETWEEN. 




C4080202 


0035 OOOB 




EBC 


. 90 AND 110. 




C4080203 


0D3B FFFF 




OC 


/FFFF 






C40802O4 


DATE 04N0V66 
EC NO. 415233 
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IBM MAINTENANCE OIAGNOSTlC PROGRAM FOR THE 1300 SYSTEM 
CP10-01AG MON SKELETONS SKELETON ID-08C4-08-0 



003C 


0012 


* 

SE006 EBC 


.EOOB PIO 08-CD 00 


0D45 


0012 




EBC 


. NUMBER OF DEVICE 


004 E 


OOOA 




EBC 


. S WAS 0000. 


COS 3 


FFFF 


♦ 


OC 


/FFFF 


005 4 


0012 


SE007 EBC 


•E009 PIO 08-CD 00 


0050 


0012 




EBC 


. NUMBER OF DEVICE 


0066 


0012 




EBC 


• S WAS GREATER THAN 


006F 


0002 




EBC 


. 3. 


0D70 


FFFF 


• 
SHI 


DC 


/FFFF 


0071 


0012 


E8C 


.C001 PIO 08-CD 00 


0D7A 


0012 




EBC 


. ENTER 2 DIGIT DE. 


0D83 


0012 




EBC 


.CIMAL INTR LVL FOR. 


OOSC 


0009 




EBC 


. 1ST 2310. 


C091 


FFFF 


• 
SH2 


OC 


/FFFF 


0D92 


0012 


EBC 


•C002 PIO 08-CO 00. 


C09B 


0012 




EBC 


. ENTER 2 DIGIT DE. 


00A4 


0012 




EBC 


.CIMAL ILSW BIT FOR. 


00 A 


0009 




EBC 


. 1ST 2310. 


0082 


FFFF 




OC 


• /FFFF 


0D83 


0012 


SM3 


EBC 


.0003 PID 08-CO 00. 


ODBC 


0012 




EBC 


. ENTER 1 DIGIT DE. 


00C5 


0012 




EBC 


.CIMAL CH FOR 1ST 2. 


ODCE 


000 3 




EBC 


.310. 


ODOO 


FFFF 





OC 


/FFFF 


0001 


0012 


SM4 


EBC 


.C001 PIO 08-CO 00. 


ODDA 


0012 




EBC 


. ENTER 2 DIGIT OE. 


ODE 3 


0012 




EBC 


•CIMAL INTR LVL FOR. 


OOEC 


0009 




EBC 


. 2ND 2310. 


00F1 


FFFF 


£ 


DC 


/FFFF 


00F2 


0012 


SM5 


E3C 


•C002 PIO 08-CD 00. 


OOF a 


0012 




EBC 


. ENTER 2 DIGIT OE. 


OE04 


0012 




tac 


.CIMAL ILSW BIT FOR. 


OEOO 


0009 




EBC 


. 2ND 2310. 


0E12 


FFFF 




DC 


/FFFF 


0E13 


0012 


SM6 


EBC 


.C003 PID 08-CD 00. 


0E1C 


0012 




EBC 


. ENTER 1 DIGIT DE. 


0E25 


0012 




EBC 


•CIMAL Ch FOR 2ND 2. 


0E2E 


0003 




-EBC 


...310. # 


0E30 


F«=FF 


£ 


s?J>c 


/FFFF 


0E31 


0012 


SM7 


, EBC 


.C001 PID 08-CD 00. 


0E3A 


0012 




EBC 


. ENTER 2 DIGIT OE- 


0E43 


0012 




EBC 


. CIMAL INTR LVL FCR. 


0E4C 


0009 




EBC 


. 3RD 2310. 


0E51 


FFFF 




OC 


/FFFF 


0E52 


0012 


SM8 


EBC 


•C002 PID 08-CD 00. 


OESB 


0012 




EBC 


. ENTER 2 DIGIT DE. 


0E64 


0012 




EBC 


.CIMAL ILSW BIT FOR. 


0E6D 


0009 




EBC 


. 3RD 2310. 


0E72 


FFFF 




OC 


/FFFF 


0E73 


0012 


SM9 


EBC 


.C003 PID 08-CD 00. 


0E7C 


0012 




EBC 


. ENTER 1 DIGIT OE. 


0E85 


0012 




EBC 


•CIMAL CH FOR 3RD 2. 


0E6E 


0003 




EBC 


.310. 


0E90 


FFFF 


* 


OC 


/FFFF 


CE91 


0012 


SM10 


EBC 


•C004 PIO 08-CD 00. 


0E9A 


0012 




EBC 


. ENTER NUMBER OF . 


CATE 


04N0V66 








EC NO. 


415233 
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C408020S 

C4080206 

C4080207 

C4080208 

C4080209 

C4080210 

C4080211 

C4080212 

C4080213 

C40B0214 

C4080215 

C4080216 

C4080217 

C4080218 

C4080219 

C4080220 

C4080221 

C4O80222 

C4080223 

C4080224 

C4080225 

C4080226 

C4O80227 

C4080228 

C4080229 

C4080230 

C4080231 

C4080232 

C4080233 

C4080234 

C4080235 

C4080236 

C4060237 

C4080238 

C4080239 

C4080240 

C4080241 

C4080242 

C4080243 

C4080244 

C4080245 

C4080246 

C4080247 

C4080248 

C4080249 

C4080250 

C4080251 

C4080252 

C4080253 

C4080254 

C4080255 

C40802S6 

C4080257 

C4080258 

C4080259 

C4080260 

C4080261 

C4080262 

C4080263 

C40o0264 

C4080265 

C4080266 

C4080267 

C4080268 

C4080269 

C4080270 

C4080271 

C4080272 
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CEA3 0012 

OEAC 0009 

0EB1 FFFF 



0682 
OE86 
0EC4 
OtCO 



0012 
0012 
0012 
OOOC 



0fc03 FFFF 



0ED4 
OEOO 
0eE6 
OEkF 
0EF6 
0F01 
OFOA 
0F13 
0F1C 



0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0002 



0F10 FFFF 

0F1E 8110 

0F1F 8120 

0F2O 8120 

0F21 1 0083 

0F22 1 0092 

0F23 I 0071 

0F24 1 0613 

0F2S 1 O0F2 

0F26 1 0001 

0F27 1 OE73 

0F28 1 0652 

0F29 1 0E31 



0F2A 1 0F26 
0F28 1 0F23 
0F2C 1 0F20 



0F20 

0F2E 

0F2F 

OF30 

0F31 

0F32 

0F33 

OF 34 

UF35 

0F36 

0F37 

0F38 

0F3S 

0F3A 

0F3B 

0F3C 

0F30 

0F3E 

0F3F 

0F40 00 

0F42 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0008 

0010 

0018 

0638 

0640 

0648 

0650 

4CO00138 

0F40 



DATE 

ec no. 



04N0V66 
415233 



SM12 



* 
SMI 3 



T8L 

* 
TBL1 



TBL4 



TBL5 



* 
TBL3 



EBC 
EBC 
OC 

EBC 
EBC 
EBC 
EBC 
OC 

EBC 
EBC 
EBC 
EBC 
EBC 
EBC 
EBC 
EBC 
EBC 
OC 

OC 
OC 
OC 

OC 
DC 
OC 

DC 
OC 
OC 

OC 
DC 
OC 



* 

SWBl 

SWB2 

SWB3 

SWB4 

SWB5 

S»B6 

SW3 7 

Snb8 

SWB9 

SWEIO 

SWBll 

SWB12 

SW813 

SWB14 

SWB15 

SWB16 

SWB17 

SWB18 

SWB19 

END1 



DC 
OC 
DC 

OC 

DC 

OC 

DC 

DC 

DC 

OC 

DC 

DC 

OC 

DC 

DC 

DC 

OC 

DC 

DC 

DC 

DC 

OC 

BSC 

END 



.2310S ON SYSTEM-PR. 

.OH 1 TO 3. 

/FFFF 

•C006 PID 03-CO 00. 
• ARE AORS REFEREN. 
.CE ChANGES DESIRED. 
.-TYPE Y OR N. 
/FFFF 



.C007 

. EN 

.CI MA 

.0 BE 

.kEOS 

.1HAL 

.1-8 

.LOWI 

.0,. 

/FFFF 

/8110 
/8120 
/8120 

SM3 
SM2 
SMI 

SM6 
SMS 
SM4 

SM9 
SMS 
SM7 



TBLS-i 
T6L4-1 
TBL1-1 













/oooo 
/oooa 
/ooio 

/0018 

/0638 

/0640 

/0648 

/0650 

ENDO 

ENDS 



PID 08-CO 00. 
TER I DIGIT CE. 
I FLO NJ»8ER T. 

CHANGED FCLLC. 
BY 3 CIG1T OEC. 

ADRS DESIRED-. 
ENTRIES IN FCL. 
NG FORMAT JO CC. 



PART NO. 2242266 
PACE 2J 



C4080273 
C4080274 
C4080275 
C4080276 
C4080277 
C4080278 
C4080279 
C4Q00280 
C4080281 
C4080282 
C4060283 
C4080284 
C4080285 
C4080286 
C4080287 
C4080268 
C4080289 
C4080290 
C4080291 
C4080292 
C4080293 
C4080294 
C4080295 
C4080296 
C4080297 
C4080298 
C4080299 
C4080300 
C4060301 
C4080302 
C4080303 
C408030* 
C4080305 
C4080306 
C4080307 
C4080308 
C4080309 
C4080310 
C4080311 
C4080312 
C4080313 
C4080314 
C4080315 
C4080316 
C4080317 
C4080318 
C4080319 
C4060320 
C4080321 
C4080322 
C4080323 
C4080324 
C4080325 
C4 08 0326 
C408C327 
C4080328 
C4080329 
C4080330 
C4080331 
C4O80332 
C4080333 
C4080334 
C408033 C4080344 
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SYM60L 

BGNR 

BINRY 

CH 

CK 

CKYN 

ENDO 

EN01 

ERR 

ERRET 

a 

ILSW 

KEY 

KEYIN 

K0003 

K0008 

K0056 

KOOdS 

K0111 

K0202 

K0657 

LGROP 

LWC 

MTRM 

NOOEV 

OUT 

PDKYB 

PHKYB 

SCH 

SECSU 

SER 

SE001 

SE004 

S6005 

SE006 

SE007 

SIL 

SILSH 

SKA1 

SKA2 

SKA3 

SKEOO 

SKE01 

SKE02 

SKE03 

SKE04 

SKE05 

SKE06 

SKI NO 

SKIM 

SKI1 

SKI 2 

SKI3 

SKI4 

SKO 

SKOO 

SKI 

SK10 

SK11 

SK12 

SK13 

SK14 

SKIS 

SK2 

SK20 

SK21 



DjTE 
EC NO. 



VALUE 

0436 

013E 

OCEC 

0CE9 

0120 

0138 

0F40 

0439 

OCCE 

0CF4 

OCFO 

012C 

01DF 

0C05 

OCOO 

OCCr 

0CD2 

0CD3 

0C04 

OCDl 

043F 

043E 

043B 

0CD6 

OCB4 

0136 

0137 

0131 

0133 

0132 

0CF8 

OOOF 

0023 

003C 

0054 

012F 

0130 

0CC6 

0CC8 

OCCA 

0C07 

OCDA 

OCOO 

OCEO 

0CE3 

0CE6 

0C4E 

0135 

0134 

0C17 

0C18 

0C19 

0C1A 

0C2E 

0C2D 

0C43 

0C6B 

0CA4 

0CA8 

OCAB 

0C7A 

0CB5 

0C44 

0C47 
0C3E 



REFERENCES 
0C17 

0C17,0C20,0C85,0C9E 

0CE9 

0C4S 

0C17.0C67 

OC 17, OF 40 

0F42 

0C17 

0C34 

OCEB 

OCEA 

0C17,0C1C,0C41,0C63,0C6D 

££* 7 » 0C71 ' 0C76 '<K78,0C76,0C7F,0C8E > 0C91,OC94,0C98 

0C89 
0C73 
OCAO 
0CA4 
OCA 8 

0C17 

0C17 

0C17 

0C28.0C51 

0C6A 

0C17,0C81,0C9A 

0C17 

OC 17, OCEC 

0C17,0CCl 

0C17,0C4E,0C07,0CDA t 0C0D,0C60,0CE3,0CE6 

0CD9,0C0C,0C0F " 

0C.E2 

0CE5 

0CE8 

0C50 

0C17.0CF4 

0C17, OCFO 

0C2E.0CCE 

0C30 

0C32 

0C74 

0C8A 

0C87 

0CA9 

0CA6 

0C22 

0C26 

0C17 

0C17 " 

OCBB 

OCBO 

OCBF 

0C4A,0CCC 

0C53 

0C40 

0C69 

OCA I 

OCA 5 

0C8C,0CA3,0CA7 

0CB3 

OCBA 

0C3A 

0CEE,OCF2,0CF6 

0C3D 



04N0V66 
415233 
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SK4 


0C51 


0C4C 


SK5 


0C48 




SK6 


0C54 


0C40 


SK7 


0C59 


0C60 


SMI 


0071 


0C43.CF23 


SM10 


0E91 


0C1E 


SM12 


0EB2 


0C65 


SM13 


0E04 


0C6F 


SM2 


0092 


0F22 


SM3 


00B3 


0F21 


SM4 


oooi 


0F26 


SM5 


00F2 


0F25 


SM6 


0E13 


0F24 


SM7 


0E31 


0F29 


SMS 


0E52 


0F28 


SM9 


0E73 


0F27 


SRTRY 


0441 


0C36 


SSUER 


012E 


OC17,OC1A,OC61,OC6B 


STBF 


0440 


0C17 


SWB1 


0F20 


0C2B,0C54,0C56,0CC3 


SWB10 


0F36 




SWB11 


0F37 


0CAE.0CB5 


SWB12 


OF38 




SWB13 


0F39 




SWB14 


OF 3 A 




SWB15 


0F3B 




SWB16 


0F3C 




SWB17 


0F30 




SWB18 


0F3E 




SMB19 


0F3F 




SWB2 


0F2E 




SWB3 


0F2F 


0CB7 


SWB4 


0F30 




StfBS 


0F31 




SWB6 


0F32 




SW87 


0F33 




SW68 


0F34 




SWB9 


0F35 




S2 


013A 


OC17.0CC4 


TBL 


0F1E 


0C38 


TBL1 


0F21 


0F2C 


TBL 3 


0F2A 


0C3B 


TBL4 


0F24 


0F2B 


TBL 5 


0F27 


0F2A 


TERM 


0430 


OC17.0C70.0C96 


TRFX 


043C 


0C17 


wcc 


043A 


0C17 


ZERO 


0437 


0C17.0C84.0C90 



CATE 
EC NO. 



'- s 



t 
t 



04N0V66 
415233 
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0000 




ORG 


012C 




KEY EOU 


0120 




CKVN ECU 


012E 




SSUER EOU 


012F 




SIL EOU 


0130 




S1LSH EQU 


0131 




SCH EOU 


0132 




SER EQU 


0133 




SECSU EOU 


0134 




SKIM EOU 


C13S 




SK1N0 EQU 


0136 




POKYB EQU 


0137 




PHKVB EQU 


0138 




ENOO EQU 


013A 




S2 EQU 


013E 




BINRY EQU 


01DF 




KEY1N EOU 


0437 




ZERO EQU 


0438 




BGNR EQU 


0439 




ERR EQU 


043A 




WCC EQU 


043B 




MTRM EOU 


043C 




TRFX EQU 


043D 




TERM EQU 


043E 




L*C EQU 


043F 




LGRCP EQU 


0440 




STBF EQU 


0441 




SRTRY EQU 


0C17 


0008 


SKI I DC 


0C18 


FFFF 


SKI2 DC 


0C19 


ocoo 


SKI 3 OC 


0C1A 


0000 


SKI4 OC 


0C1B 00 


4C00013S 


END1 BSC 


0C1E 


0C1B 


ENO 



CATE 04NUV66 

EC NO. 415233 



•♦3095 

300 

KEY*1 

CKYN+1 

SSUER*! 

SiUl 

SILSW+1 

SCH*1 

SER+1 

SECSU+1 

SK1N1+1 

SK1N0+1 

POKVB+l 

PHKYBn 

ENDO+2 

S2*4 

BINRY+161 

KEYIN4600 

ZER0*1 

BGNR*1 

ERR*1 

WCC*1 

MTRM*1 

TRFXtl 

TERM»1 

LWC*1 

LGROP+1 

STBF*1 

/0008 

/FFFF 





ENOO 
EN01 



C4081001 
C4081002 
C4081003 
C4081004 
C4081005 
C4081006 
C4081007 
C4081008 
C4081009 
C4081010 
C4081011 
C4081012 
C4081013 
C4081014 
C4081015 
C4081016 
C40B1017 
C4081018 
C4081019 
C4081020 
C4081021 
C4081022 
C4081023 
C4081024 
C4081025 
C4081026 
C4081027 
C4081028 
C4081029 
C4O81O30 
C4081031 
C4081032 
C4081033 
C408103 C4081043 
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SYMBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


6INRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENOO 


0138 


0C17.0C1B 


EN01 


OClb 


0C10 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEVIN 


01DF 


0C17 


LGROP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


043B 


0C17 


POKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0CI7 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILSH 


0130 


0C17 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKI1 


0C17 




SKI 2 


0C18 




SKI 3 


0C19 




SKI 4 


0C1A 




SRTRV 


0441 




SSUER 


012E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


WCC 


043A 


0C17 


2EKO 


0437 


0C17 



GATE 
EC NO. 
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415233 
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0000 






ORG 




•♦3095 




C4090001 




012C 




KEY 


EQU 




300 




C4090002 




0120 




CKYN 


EQU 




KEV*1 




C4090003 




012E 




SSUEP 


EQU 




CKYNH 




C4090004 




012F 




SIL 


EQU 




SSUER+1 




C4090005 




0130 




SILSW EQU 




SIU1 




C4090006 




0131 




SCH 


EQU 




SILSW+1 




C4090007 




0132 




SER 


EQU 




SCH*1 




C4090008 




0133 




SECSL 


EQU 




SER*1 




C4090009 




0134 




SKIN1 


EQU 




SECSU+1 




C4090010 




0135 




SKINC 


EQU 




SKIN1+1 




C4090011 




0136 




PDKY8 


EQU 




SKINO+1 




C4090012 




0137 




PHKYB 


EQU 




PDKYB»1 




C4090013 




0138 




ENOO 


EQU 




PHKYB+1 




C4090014 




013A 




S2 


EQU 




END0*2 




C4090015 




013E 




BINRY 


EQU 




S2+4 




C4090016 




010F 




KEYIN 


EQU 




BINRY+161 




C4090017 




0437 




ZERO 


EQU 




KEYIN+600 




C4090018 




0438 




BGNR 


EQU 




ZER0*1 




C4090019 




0439 




ERR 


EQU 




BGNR+1 




C4090020 




043A 




WCC 


ECU 




ERRU 




C4090021 




043 B 




MTRM 


EQU 




WCC*1 




C4090022 




043C 




TRFX 


EQU 




MTR1+1 




C40900P3 




043 U 




TERM 


EQU 




TRFX*1 




C4090024 




043 E 




LnC 


EQU 




TERM*1 




C4090025 




043F 




LGROP 


EQU 




LWCH 




C4090026 




0440 




STBF 


EQU 




LGROP*! 




C4090027 




0441 




SRTRY 


EQU 




STBF*1 




C4090028 




0C17 


0009 


SKI1 


DC 




/0009 




C4090029 




0C18 


0000 


SKI 2 


nc 




/OGOO 


CD NO 


C4090030 




0C19 


0006 


SKI3 


oc 




/OOOB 


NO ENTRIES 


C4090031 




0C1A 00 


4480012E 


SKI4 


BSI 


I 


SSUER 


SET ERROR PETURN SRC 


C4090032 




0C1C 00 


4480012C 




BSI 


I 


KEY 


ENTER NO DEVICES SRC 


C4090033 




0C1E 1 


0E91 




DC 




SM10 




C4090034 




0C1F 


8110 


• 


DC 




/8110 




C4090035 
C4090036 




0C20 00 


C400013E 




LD 


L 


BINRY 


GET ENTRY 


C4090037 




0C22 01 


4C180CE6 




BSC 


L 


SKE05,«~ 


BRANCH IF ZERO 


C4090038 




0C24 01 


B4000C05 




CMP 


L 


K0003 


CK MAX 


C4090039 




0C26 


7027 




MDX 




SKE06 


BRANCH IF TOO GREAT 


C4090040 




0C27 


1000 




NOP 









C4090041 




0C28 01 


D4000CD6 




STO 


L 


N0D6V 


SAVE ENTRY 


C4090042 




0C2A 


6303 




LOX 


3 


3 




C4090043 




0C2B 01 


65000F2D 




LDX 


LI 


SWB1 




C4090044 




0C20 


6203 


SKOO 


LDX 


2 


3 




C4090045 




0C2E 01 


6DO0OCC7 


SKO 


STX 


LI 


SKA1+1 


SAVE I XING 


C4090046 




0C30 01 


6E000CC9 




STX 


L2 


SKA2+1 


• 


C4090047 




0C32 01 


6F000CCB 




STX 


L3 


SKA3+1 


• 


C4090048 




0C34 01 


C4000CCE 




LO 


L 


ERRLT 


SET ERROR RETURN 


C4090049 




0C36 00 


04000441 




STO 


L 


SRTKV 


« 


C4090050 




0C38 01 


C6000F1D 




LO 


L2 


TBL-1 


GET FORM 


C4090051 




0C3A 


0009 




STO 




SK2 


SET 


C4090052 




0C3B 01 


C7000F29 




LD 


L3 


T8L3-1 


GET TBL ADRS 


C4090053 




0C30 


0001 




STO 




SK21+1 


SET 


C4090054 




0C3E 00 


C6000000 


SK21 


LD 


L2 





GET MSG ADRS 


C4090055 




0C40 


0002 




STO 




SKI 


SET 


C4090056 




0C41 00 


4480012C 




BSI 


I 


KEY 


PRINT SRC 


C4090057 




0C43 1 


0071 


SKI 


DC 




SMI 




£4090058 




0C44 


8120 


SK2 


OC 




/8120 




C4090059 




0C4 5 01 


4E300CE8 




BSC 


12 


CK-l 


CHECK OAT A SRC 


C4090060 




0C47 


0100 


SK20 


STO 


1 





SAVE 


C4090061 




CC48 


7101 




MDX 


1 


1 


I NCR IX 1 


C4090062 




0C49 


72FF 




MDX 


2 


-1 


OECR IX 2 


C4090063 




0C4A 


70E3 




MDX 




SKO 


LOOP 


C4090064 




0C4B 


73FF 


SK5 


MDX 


3 


-1 


DECR 1X3 


C4090065 




0C4C 


7004 




MOX 




SK4 


CHECK FOR NEXT DR 


C4090066 




0C40 


7006 




MDX 




SK6 


ALL DRS COMPLETE 


C4090067 




0C4E 00 


44800132 


SKE06 


BSI 


I 


SER 


BRANCH IF ERROR SRC 


C4090068 




CATE 
EC NO. 
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GCiO 1 


0054 


OC 




SE007 




C4090069 


0C51 01 


74FF0CD6 


SK4 KuX 


L 


NOOEVf-l 


OECR NO OF OVICES 


C4090070 


0C53 


70D9 


MDX 




SKOO 


LOOP 


C4090071 


0C54 01 


65000F20 


SK6 LDX 


LI 


SMB1 


SfcT IXING 


C4090072 


0C56 01 


6 700 OF 20 


LOX 


L3 


SWBl 




C4090073 


0C56 


6203 


LDX 


2 


3 




C4090074 


0C59 


C100 


SK7 LD 


1 





BUILD OOEFS 


C4090075 


0C5A 


F101 


EOR 


1 


1 




C4090076 


0C5B 


F102 


EOR 


1 


2 




C4090077 


0C5C 


0300 


STO 


3 





SAVE 


C4090078 


0C5D 


7103 


MDX 


1 


3 


I NCR IX 1 


C4090079 


0C5E 


7301 


MDX 


3 


1 


I NCR IX 3 


C409008O 


0C5F 


72FF 


KDX 


2 


-I 


OECR IX 2 


C4090081 


OC60 


70F8 


MDX 




SK7 


LOOP 


C4090082 


0C61 00 


4480012E 


BSI 


I 


SSUER 


SET ERROR RETURN 


SRC C4090083 


0C63 00 


4430012C 


BSI 


I 


KEY 


ADRS CHANGE WANTED 


SRC C4090084 


0C65 1 


0EB2 


OC 




SM12 




C4090085 


0C66 


8000 


OC 




/8000 




C4090086 


0C67 00 


44800120 


BSI 


1 


CKYN 


CHECK FOR Y OR N 


SRC C4090087 


0069 


7001 


MDX 




SK10 


ENTRY HAS Y 


C4090088 


0C6A 


7049 


MOX 

• 




OUT 


ENTRY WAS N 


C4090089 
C4090090 


0C6B 00 


4480012E 


SK10 BSI 


I 


SSUER 


SET ERROR RETURN 


SRC C4090091 


0C60 00 


4480012C 


BSI 


I 


KEY 


ENTER 3 DIGIT ADRS 


SRC C4090092 


0C6F 1 


0E04 


OC 




SN13 




C4090093 


0C7O 


8050 


OC 




/8050 




C4090094 


0C71 00 


C40001DE 


LO 


L 


KEVIN-l 


GET MD CT 


C4090095 


0C73 


B05B 


CMP 




K0056 


CK FOR MAX 


C4090096 


0C74 


7062 


MOX 




SKEOO 




C4090097 


0C75 


1000 


NOP 









C4090098 


0C76 00 


6580010E 


LOX 


11 


KEVIN-l 


SET IXING 


C4090099 


OC78 00 


6600010F 


LOX 

• 


L2 


KEYIN 




C4090100 
C4090101 


0C7A 


C200 


SK14 LO 


2 





GET ENTRY 


C4090102 


0C7B 00 


04000 10F 


STO 


L 


KEYIN 


MOVE 


C4090103 


OC70 00 


C4000430 


LO 


L 


TERM 


GET TERM 


C4090104 


0C7F 00 


040001E0 


STO 


L 


KEVIN*1 


SET 


C4090105 


0C81 00 


44800136 


BSI 


I 


POKYB 


CONVERT DATA 


SRC C4090106 


0C63 


0001 


DC 




1 




C4090107 


oca* o 


0437 


OC 




ZERO 




C4090108 


0C85 00 


C400013E 


LO 


L 


B1NRV 


GET DATA 


C4090109 


0C67 01 


4C180COO 


BSC 


L 


SKE02 ,♦- 


BR IF 2ER0 


C4090110 


0C89 


B046 


CMP 




K0008 


CK FOR MAX 


C4090111 


0C8A 


704F 


MOX 




SKE01 


ERROR 


C4090112 


0C8B 


1000 


NOP 









C4090113 


0C8C 


0020 


STO 

• 




SKI3+2 




C4090114 
C4090115 


OC80 


C202 


LD 


2 


2 


GET ENTRY 


C4090116 


0C8E 00 


D400010F 


STO 


L 


KEYIN 


MOVE DATA 


C4090117 


0C90 


C203 


LD 


2 


3 




C4090118 


CC91 00 


040001EO 


STO 


L 


KEYIN+1 




C4090119 


0C93 


C204 


LD 


2 


4 




C4090120 


0094 00 


04U001E1 


STO 

• 


L 


KEYIN*2 




C4090121 
C4090122 


0C96 00 


C4000430 


LD 


L 


TERM 


GET TERM 


C4090123 


0C98 00 


040001E2 


STO 


L 


KEYIN+3 


SET 


C4090124 


0C9A 00 


44800136 


BSI 


I 


POKYB 


CONVERT ENTRIES 


SRC C4090125 


0C9C 


0003 


DC 




3 




C4090126 


0C90 


0437 


OC 




2ER0 




C4090127 


0C9E 00 


C400013E 


LO 


L 


BINRY 


GET DATA 


C4090128 


OCAO 


B031 


CMP 




K0089 


CK FOR OK 


C4090129 


OCA I 


7002 


MOX 




SK11 


CONTINUE CKING 


C4090130 


0CA2 


1000 


NOP 









C4090131 


0CA3 


7007 


MOX 




SK13 


ENTRY OK 


C4090132 


0CA4 


B02F 


SKll CMP 




KOI 11 


CK AORS 


C4090133 


OCA 5 


7002 


MDX 




SK12 


CONTINUE CKING 


C4090134 


0CA6 


703C 


MOX 




SKE04 


ERRCR 


C4090135 


0CA7 


7003 


MOX 




SK13 


ENTRY OK 


C4090136 


DATE 


04N0V66 






J 
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OCAS B02A 


SK12 


CMP 




K0202 






C4090137 




0CA9 7036 




MOX 




SKE03 


ERROR 




C4090138 




OCAA 1000 




NOP 











C4090139 




OCAB 1003 


SK13 


SLA 




3 


MUL BY 8 




C4090140 




OCAC 00 67000000 




LDX 


l3 









C4090141 




OCAE 01 D7O0OF37 




STO 


L3 


SWBU 






C4090142 




OCBO 7301 




MDX 


3 


1 






C4090143 




0C81 7206 




MOX 


2 


6 






C4090144 




0CB2 71FA 




MOX 


1 


-6 






C4090145 




0CB3 70C6 




MDX 




SK14 






C4090146 




CCB4 6108 


OUT 


LDX 


1 


8 


SET IXING 




C4090147 




0CB5 01 C5000F37 


SKI 5 


LD 


LI 


SWB11 






C4090148 




0CB7 01 C5000F2F 




STO 


LI 


SHB3 






C4090149 




0CB9 71FF 




MOX 


1 


-1 


OECR IX 1 




C4090150 




OCBA 70FA 




MDX 




SK15 






C4090151 




OCBB 01 65800C17 




LDX 


11 


SKI1 


SET IXING 




C4090152 




OCBO 01 66800C18 




LDX 


12 


SKI2 






C4090153 




OCBF 01 67800C1S 




LDX 


13 


SKI3 






C4090154 




0CC1 00 44800133 




BSI 


I 


SECSU 


SET UP CARD 


SRC 


C4090155 




0CC3 1 0F2D 




DC 




SWBl 






C4090156 




0CC4 00 4C00013A 




BSC 


L 


S2 


EXIT 




C4090157 




0CC6 00 65000000 


SKA1 


LOX 


LI 





RESTORE IXING 




C4090158 




0CC8 00 66000000 


SKA2 


LDX 


L2 





* 




C4090159 




OCCA 00 67000000 


SKA3 


LDX 


L3 





* 




C4090160 




OCCC 01 4C000C2E 




BSC 


L 


SKO 


ERRCR RE-ENTRY 




C4090161 




OCCE 1 0CC6 


ERRET 


OC 




SKA1 


ERROR RETURN 




C4090162 




OCCF 0031 


K0056 


DC 




49 


CONSTANTS 




C4090163 




OCDO 0008 


K0008 


DC 




8 






C4090164 




0C01 0657 


K0657 


DC 




/0657 






C4090165 




0CD2 0059 


K0089 


DC 




89 






C4090166 




0C03 OOCA 


K0202 


DC 




202 






C4090167 




0CD4 006F 


KOI 11 


DC 




111 






C4090168 




0C05 0003 


K0003 


OC 




3 






C4090169 




0CD6 0000 


NODEV 


DC 











C4090170 




0C07 00 44800132 


SKEOO 


BSI 


1 


SER 


TOO MANY ADRSS 


SRC 


C4090171 




0CD9 1 0CF8 




DC 




SE001 






C4090172 




OCDA 00 44800132 


SKE01 


BSI 


I 


SER 


FIELD TCO GREAT 


SRC 


C4090173 




OCDC 1 0CF8 




DC 




SE001 






C4090174 




OCOO 00 44800132 


SKE02 


BSI 


I 


SER 


FLO WAS ZERO 


SRC 


C4090175 




OCDF 1 0CF8 




DC 




SE001 






C4090176 




OCEO 00 44800132 


SKE03 


BSI 


I 


SER 


ADRS TCO GREAT 


SRC 


C4090177 




0CE2 1 ODUF 




DC 




SE004 






C4090178 




0CE3 00 44800132 


SKE04 


BSI 


I 


SER 


ILLEGAL ADRS 


SRC 


C4090179 




0CE5 1 0023 




OC 




SEOOS 






C4090180 




0CE6 00 44800132 


SKE05 


BSI 


I 


SER 


NO OR « 


SRC 


C4090181 




0CE8 1 003C 




OC 




SE006 






C4090182 




0CE9 1 OCEC 


CK 


OC 




CH 






C4090183 




OCEA 1 OCFO 




OC 




ILSM 






C4090184 




OCEB 1 0CF4 




DC 




IL 






C4090185 




OCEC 00 44800131 


CH 


BSI 


I 


SCH 


CK CHANNEL 


SRC 


C4090186 




OCEE 01 4C000C47 




BSC 


L 


SK20 






C4090167 




OCFO 00 44800130 


ILSW 


BSI 


I 


SILSH 


CK ILSW BIT 


SRC 


C4090188 




0CF2 01 4C000C47 




BSC 


L 


SK20 






C4090189 




0CF4 00 4480012F 


IL 


BSI 


I 


SIL 


CK INTR LVL 


SRC 


C4090190 




0CF6 01 4C000C47 


• 


BSC 


L 


SK20 






C4090191 
C4090192 




0CF8 0012 


SE001 


EBC 




.E007 P10 


09-CO 00. 




C4090193 




ODO 1 0012 




E6C 




. ENTRY TOO LARGE . 




C4090194 




000 A 0007 




EBC 




.OR OCOO. 






C4090195 




ODOE FFFF 


* 


OC 




/FFFF 






C4090196 
C4090197 




ODOF 0012 


SE004 


EBC 




.EOOA P10 


09-CD 00. 




C40901 98 




0018 0012 




EBC 




. ADRS IS 


TOO GREA. 




C4090199 




0D21 0001 




EBC 




.T. 






C4090200 




0022 FFFF 


• 


DC 




/FFFF 






C4090201 
C4090202 




0D23 0012 


SE005 


EBC 




•E008 P10 


09-CD 00. 




C409C203 


c 


002C 0012 




EBC 




. ADRS WAS BETWEEN. 




C4 090204 




CATE 04N0V66 
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0035 


OOOB 


003 a o 


FFFF 


0D3C 


0012 


00*5 


0012 


0D4E 


OOOA 


0D53 


FFFF 


005 4 


0012 


0050 


U012 


0066 


0012 


006 F 


0002 


0070 


FFFF 


0071 


0012 


007 A 


0012 


COS 3 


0012 


ooec 


0009 


0091 


FFFF 


0092 


0012 


009 8 


0012 


00 A* 


0012 


OOAO 


0009 


0082 


FFFF 


0DB3 


0012 


OOBC 


0012 


00C5 


0012 


OOCE 


0003 


0000 


FFFF 


0001 


0012 


OOOA 


0012 


00E3 


0012 


OOEC 


0009 


OOFl 


FFFF 


OOF 2 


0012 


OOFB 


0012 


CE04 


0012 


OEOO 


0009 


0E12 


FFFF 


0E13 


0012 


0E1C 


0012 


0E25 


0012 


0E2E 


0003 


0E30 


FFFF 


CE31 


0012 


0E3A 


0012 


0£43 


0012 


0E4C 


0009 


0ES1 


FFFF 


0E52 


0012 


0E5B 


0012 


0E64 


0012 


0E60 


0009 


OE72 


FFFF 


0E73 


0012 


0E7C 


0012 


0E85 


0012 


0E8E 


0003 


0E90 


FFFF 


CATE 


04N0V66 


EC NO. 


415233 





EBC 


♦ 90 AND 110. 


• 
SEOOt 


OC 


/FFFF 


i EBC 


•EOOB PIO 09-CD 00. 




EBC 


. NUPdER CF DEVICE. 




EBC 


.S MAS 0000. 





OC 


/FFFF 


SE007 EBC 


-E009 PIO 09-CD 00. 




EBC 


. NUMBER OF DEVICE. 




EBC 


. S WAS GREATER THAN. 




EBC 


. 3. 


£ 


OC 


/FFFF 


SMI 


EBC 


.C001 PID 09-CD 00. 




EBC 


. ENTER 2 DIGIT OE. 




EBC 


.CIMAL INTR LVL FCR. 




EBC 


. 1ST 2310. 


£ 


OC 


/FFFF 


SM2 


EBC 


•C002 PIO C9-CD 00. 




EBC 


. ENTER 2 CIGIT DE. 




EBC 


.CIMAL ILSW BIT FCR. 




EBC 


. 1ST 2310. 


• 
SM3 


OC 


/FFFF 


EBC 


•C003 PIO C9-C0 00. 




fcdC 


. ENTER 1 OIGIT DE. 




EBC 


.CIMAL CH FOR 1ST 2. 




EBC 


.310. 





OC 


/FFFF 


SM4 


EBC 


•C001 PIO 09-CD 00. 




EBC 


. ENTER 2 OIGIT DE. 




EBC 


•CIMAL INTR LVL FOR. 




EBC 


. 2ND 2310. 


4 


OC 


/FFFF 


SMS 


EBC 


.C002 PIO 09-CD 00. 




EBC 


. ENTCR 2 DIGIT OE. 




EBC 


.CIMAL ILSW BIT FOR. 




EBC 


. 2ND 2310. 


£ 


OC 


/FFFF 


SM6 


EBC 


.C003 PIO 09-CD 00. 




EBC 


. ENTER 1 DIGIT OE. 




EBC 


.CIMAL CH FCR 2ND 2. 




EBC 


.310. 


* 
SM7 


OC 


/FFFF 


EBC 


.COOl PIO 09-CO 00. 




EBC 


. ENTER 2 DIGIT DE. 




EBC 


.CIMAL INTR LVL FOR. 




EBC 


. 3RD 2310. 


f 


OC 


/FFFF 


SM8 


EBC 


.C002 PIO 09-CD 00. 




EBC 


. ENTER 2 DIGIT DE. 




EBC 


.CIMAL ILSta BIT FOR. 




EBC 


. 3RD 2310. 


• 
SM9 


OC 


/FFFF 


EBC 


.C003 PIO 09-CO 00. 




EBC 


. ENTcR 1 DIGIT OE. 




EBC 


.CIMAL CH FOR 3R0 2. 




EBC 


.310. 




OC 


/FFFF 
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C4C90205 

C4090206 

C4090207 

C4090208 

C4090209 

C4090210 

C4090211 

C4090212 

C^090213 

C4090214 

C4090215 

C4090216 

C4090217 

C4090218 

C4090219 

C4090220 

C4090221 

C4090222 

C4090223 

C4090224 

C4090225 

C4090226 

C4090227 

C4090228 

C4090229 

C4090230 

C4090231 

C4090232 

C4090233 

C4090234 

C4090235 

C4090236 

C4090237 

C4090238 

C4090239 

C4090240 

C4090241 

C4090242 

C4090243 

C4090244 

C4090245 

C4090246 

C4090247 

C4090248 

C4090249 

C4090250 

C4C 90251 

C4090252 

C4O90253 

C4090254 

C4090255 

C4090256 

C4090257 

C4090258 

C4090259 

C4090260 

C4090261 

C4090262 

C4090263 

C4090264 

C4090265 

C4090266 

C4090267 

C4090268 

C4090269 

C4090270 

C4090271 

C4090272 
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0E91 0012 

0E9A 0012 

0EA3 0012 

OEAC 0009 

0EB1 FFFF 

0EB2 0012 

OEBB 0012 

0EC4 0012 

OECO OOOC 

OEOi FFFF 



0ED4 
OEOD 
0EE6 
OEEF 
0EF8 
0F01 
OFOA 
0F13 
0F1C 
0F10 



0012 
0012 
0012 
0012 
O012 
0012 
0012 
0012 
0002 
FFFF 



0F1E 8110 
0F1F 8120 
0F20 8120 



0F21 
0F22 
0F23 

0F24 
OF2 5 
0F26 



0F27 1 
0F28 1 
OF 29 1 



O0B3 
0092 
0071 

OL-13 
00F2 
OD01 

0E73 
OE52 
0E31 



0F2A 1 0F26 
0F2B 1 0F23 
0F2C 1 0F20 



0F2D 

0F2E 

0F2F 

OF 30 

0F31 

0F32 

0F33 

0F34 

0F35 

CF36 

0F3 7 

0F38 

0F39 

0F3A 

0F3B 

0F3C 

0F3D 

0F3E 

0F3F 

OF40 00 

0F42 



DATE 

EC NO. 























0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0008 

0010 

0018 

0638 

0640 

0648 

0650 

4C000138 

0F40 



04N0V66 
415233 



SM10 



SM12 



SM13 



TBL 



* 

tbl; 



TBL4 



* 
T8LS 



* 
TBL3 



• 

SuBl 

SWB2 

SWB3 

SMB4 

SWB5 

SWB6 

SWB7 

SW6 8 

S»B9 

SWB10 

SwBll 

:>WB12 

SWB13 

Shb14 

SWB15 

S«B16 

SW817 

SWB18 

SWB19 

END1 



EBC 
EBC 
EBC 
EBC 
OC 

EBC 
EBC 
EBC 
EBC 

DC 

EBC 
EBC 
EBC 
EBC 
CBC 
EBC 
EBC 
EBC 
EBC 
OC 

DC 
DC 
DC 

DC 
OC 
OC 

DC 
OC 
DC 

DC 
DC 
DC 



OC 
DC 
DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

BSC 

ENO 



.C004 PID 09-CO 00. 
. ENTER NUMBER DF . 
•2310S ON SYSTEM-FR. 
.OM 1 TO 3. 
/FFFF 

•C006 PIO 09-CD 00. 
. ARE ADRS REFEREN. 
•CE ChANGES DESIRED. 
.-TYPE Y OR N. 
/FFFF 



• C007 
. EN 

• CI MA 
.0 BE 
. wbDS 
.IMAL 
.1-8 
.LOrfl 
.Ot. 
/FFFF 

/8110 
/8120 
/8120 

SM3 
SM2 
SMI 

SM6 

SM5 
SM4 

SM9 
SMS 
SM7 



TBL5-1 
TBL4-1 
TBL1-1 








c 
c 
c 

c 

C 

/oooo 

/0008 
/0010 

/ooia 

/0638 

/0640 

/0648 

/0650 

ENOO 

EN01 



PIO 09-CO 00. 
TER 1 OIGIT CE. 
L FLO NUMBER T. 

CHANGED FCLLO. 
BY 3 OIGIT DEC. 

ADRS DESIRED-. 
ENTRIES IN FCL. 
NG FORMAT SO CO. 
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C4090273 
C4090274 
C4090275 
C4090276 
C4090277 
C4090278 
C4090279 
C409O280 
C4090281 
C4090282 
C-.090283 
C4090284 
C4090285 
C4090286 
C4090287 
C4090288 
C4090289 
C4090290 
C4090291 
C4090292 
C4090293 
C4090294 
C4090295 
C4090296 
C4090297 
C4090298 
C4090299 
C4090300 
C4090301 
C409O302 
C4C90303 
C4090304 
C4090305 
C4090306 
C4090307 
C4090308 
C4090309 
C409C310 
C4090311 
C4090312 
C4090313 
C4090314 
C4090315 
C4090316 
C4090317 
C4090318 
C4090319 
C4090320 
C4090321 
C4090322 
C4090323 
C4090324 
C4090325 
C4090326 
C4090327 
C409032B 
C4090329 
C4090330 
C4 0903 31 
C4090332 
C4090333 
C4090334 
C4090335 
C4090336 
C409033 C4090346 
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CROSS RCFtRENCE LISTING 



SYMBOL VALUt 


REFERENCES 


BGNR 


0438 


0C17 


81NRY 


013fc 


0C17,JC20,0C85,OC9E 


CH 


ocec 


0CE9 


CK 


0CE9 


0C45 


CKYN 


0120 


OC17.0C67 


EMDO 


0138 


0C17. 0F40 


EN01 


0F40 


0F42 


ERR 


0439 


0C17 


ERRET 


OCCE 


0C34 


IL 


0CF4 


OCEB 


ILSH 


OCFO 


OCEA 


KEY 


012C 


OC17,OC1C,OC41,OC63,OC60 


KEVIN 
K0003 


010F 
0C05 


0C17, 0C71, OC76,OC78,OC7B,0C7F,0C8E,0C9 
0C24 


KO008 


OCOO 


0C89 


K0056 


OCCF 


0C73 


K0039 


0CD2 


OCAO 


K01U 


0CD4 


0CA4 


KO202 


OC03 


0CA8 


K0657 


0C01 




LGROP 


043F 


0C17 


LHC 


043E 


0C17 


MTRM 


0438 


0C17 


NOOEV 


0CD6 


0C28.0C51 


OUT 


0CB4 


0C6A 


POKYB 


0136 


0C17, 0C81.GC9A 


PHKY8 


0137 


0C17 


SCH 


0131 


OC 17, OCEC 


SECSU 


0133 


0C17, OCCl 


SER 


0132 


0C17, 0C4E.OC0 7, OCOA, OCOO, OCEO, 0CE3.0CE6 


SE001 


0CF8 


0CD9, OCOC.OCOF 


SE004 


OOOF 


0CE2 


SE005 


0023 


0CE5 


SE006 


0C3C 


0CE8 


SE007 


0054 


OC50 


SIL 


U12F 


0C17.OCF4 


SILSW 


0130 


OC 17, OCFO 


SKA I 


0CC6 


0C2E.0CCE 


SKA2 


UCC8 


0C30 


SKA3 


OCCA 


0C32 


SKEOO 


0CD7 


0C74 


SKE01 


OCOA 


0C8A 


SKE02 


OCDO 


0C87 


SKE03 


OCEO 


0CA9 


SKE04 


0CE3 


OCA 6 


SKE05 


0CE6 


0C22 


SKE06 


0C4E 


0C26 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SK11 


0C17 


OCBB 


SKI 2 


0C18 


OCBO 


SKI3 


0C19 


OCBF 


SKI* 


0C1A 




SKO 


0C2E 


0C4A.0CCC 


SKOO 


0C2D 


0C53 


SKI 


0C43 


0C40 


SK10 


0C6B 


0C69 


SK11 


0CA4 


0CA1 


SK12 . 


OCAS 


OCA 5 


SK13 


0CA8 


0C8C,0CA3,OCA7 


SKI 4 


0C7A 


0CB3 


SKIS 


0C85 


OCBA 


SK2 


0C44 


0C3A 


SK20 


0C47 


0CEE,0CF2,0CF6 


SK21 


0C3E 


0C30 
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SK4 


0C51 


0C4C 


SK5 


0C4B 




SK6 


0C54 


0C4O 


SK7 


0C59 


0C60 


SMI 


0071 


0C43.0F23 


SM10 


0E91 


0C1E 


SM12 


0EB2 


0C65 


SM13 


0E04 


0C6F 


SM2 


0D92 


0F22 


SH3 


0DB3 


0F21 


SM4 


OODl 


0F26 


SH5 


0DF2 


0F25 


SM6 


0E13 


0F24 


SM7 


0E31 


0F29 


SM8 


0E52 


0F28 


SM9 


0E73 


0F27 


SRTRY 


0441 


0C36 


SSUER 


012E 


OC17,OClA,0C6l,0C6B 


STBF 


0440 


0C17 


SWB1 


0F20 


0C23, 0C54, CC56.0CC3 


SW810 


0F36 




SW611 


OF 37 


0CAE.0CB5 


SWB12 


0F38 




SrfB13 


0F39 




SWB14 


0F3A 




S«315 


0F3B 




SW316 


0F3C 




SWB17 


0F3D 




SK818 


0F3E 




SWB19 


0F3F 




SbB2 


0F2E 




S4o3 


0F2F 


0CB7 


SWB4 


0F3O 




SWB5 


0F31 




SWB6 


0F32 




SW87 


0F33 




SMB8 


0F34 




SWB9 


0F35 




S2 


U13A 


0C17.0CC4 


TBL 


0F1E 


0C38 


TBL1 


0F21 


0F2C 


TBL 3 


0F2A 


0C3B 


TBL 4 


0F24 


0F2B 


TBL 5 


OF27 


0F2A 


TERM 


0430 


OC17.0C70.0C96 


TRFX 


043C 


0C17 


WCC 


043A 


0C17 


2ERU 


0437 


0C17.0C84.OC90 



DATE 
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0000 

012C 

0120 

012E 

OUF 

0130 

0131 

0132 

0133 

013* 

0135 

0136 

013? 

0136 

013A 

013E 

01 OF 

0437 

0438 

0439 

043A 

0438 

043C 

0*30 

043E 

043F 

0440 

0441 

0C1T 

0C18 

0C19 

CC1A 
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0009 
rFFF 

0000 
0000 



0C18 00 4C000138 



0C1E 



0C18 





ORG 


♦♦3095 


KEY 


EOU 


300 


CKYN 


EOU 


KEY*1 


SSUER 


EOU 


CKYN+1 


SIL 


EOU 


SSUER*! 


S1LSW 


EOU 


SIL+1 


SCH 


EOU 


SILSW+1 


SER 


EOU 


SCH+l 


SECSU 


EOU 


SER+1 


SKIN1 


EQU 


SECSU+1 


SKI NO 


EMJ 


SKIN1*1 


POKYB 


EQU 


SKINOH 


PHKY8 


EDO 


PDKYB+1 


ENOU 


EOU 


PHKYB+1 


S2 


EOU 


EN00*2 


BINRY 


EOU 


S2*4 


KEYJN 


EOU 


8INRY+161 


ZERO 


EOU 


K£Y1N*600 


BGNR 


EQU 


ZERO* I 


ERR 


EuU 


8GNR*1 


WCC 


EOU 


ERR+1 


MTRM 


EQU 


WCC*1 


TRF> 


EUU 


HTRM*1 


TER* 


EQU 


TRFX+1 


LWC 


EQU 


TERM*1 


LGRCP 


EQU 


LWC + 1 


STBF 


EQU 


LGROP+l 


SRTRY 


EOU 


STBF+1 


SKI1 


DC 


/0009 


SKI 2 


DC 


/FFFF 


SKI3 


DC 





SKI4 


DC 





EN01 


BSC L 


ENDO 




END 


EN01 



C4091.001 
C4091002 
C4091003 
C4091004 
C4091005 
C4091006 
C4091007 
C4091008 
C4091009 
C4091010 
C4091011 
C4091012 
C4091013 
C4091014 
C4091015 
C4091016 
C4091017 
C4091018 
C4091019 
C4091020 
C4091021 
Ct091022 
C<>091023 
C4091024 
C4091025 
C4091026 
C4091027 
C4091028 
C4091029 
C4091030 
C4091031 
C4091032 
C4091033 
C409103 C4091043 
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SYhBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENDO 


0136 


0C17.0C1B 


END1 


0C18 


0C10 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEYIN 


OlOF 


0C17 


LGROP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


043B 


0C17 


PDKYB 


0136 


0C17 


PHKY8 


0137 


0C1? 


SCH 


0131 


0C17 


StCSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SUSW 


0130 


0C17 


SKINO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKI1 


0C17 




SKI 2 


0C18 




SKI 3 


0C19 




SKI 4 


0C1A 




SRTRY 


0441 




SSUER 


U12E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


U430 


0C17 


TRFX 


043C 


0C17 


WCC 


043A 


0C17 


ZERO 


043? 


0C17 



CATE 
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0000 

012C 

0120 

012E 

012F 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

013A 

013E 

01DF 

0437 

0438 

0439 

043A 

043 a 

043C 

0430 

C43E 

043F 

0440 

0441 

OC17 

0C18 

0C19 

OC1A 00 

CC1C 00 

0C1E 1 
0C1F 









OOOA 

0000 

0003 

4480012E 

4480012C 

0C5F 

8120 



0C20 00 4480012F 
0C22 01 04000C5C 

0C24 00 4480012E 

0C26 00 4480012C 

0C28 1 0C7F 

0C29 8120 

0C2A 00 44800130 
0C2C 01 F400OC5C 
0C2fc 01 D4000C5C 

0C30 00 4480O12E 
0C32 00 4480012C 
0C34 1 0C9E 
0C35 8110 

0C36 00 44800131 
0C38 01 F4000C5C 
0C3A 01 04000CSC 

0C3C 00 4480012E 
0C3E 00 4460012C 

OC40 i ocao 

CC41 O 8000 

0C42 00 44800120 
OC44 7001 
0C45 7003 



0C46 
0C47 O 



DATE 
EC NO. 



C005 
0016 



04NQV66 
415233 



ORG 
KEY £ UU 
CKYN ECU 
SSclER EOU 
SIL EOU 
SILSW EOU 
SCH EOU 
S£R EQU 
SECSU EOU 
SKIN1 ECU 
SKI NO ECU 
POKVB ECU 
PHKY8 ECU 
£N00 EOU 
S2 EQU 

BInRY EQU 
KEY1N EdU 
ZERO EQU 



BGNR 

ERR 

WCC 

MT*M 

TRFX 

TERM 

LmC 



EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



LGROP EQU 
STdF EQU 
5RTKV EQU 
SKI1 OC 



SKi2 
SKI3 
SK14 



DC 
DC 

esi 

3SI 

OC 
DC 

BSI 
STO 

BSI 

asi 

DC 

OC 

BSI 
EOR 
STO 

BSI 

BSI 

DC 
DC 



♦♦3095 

300 

KEY+1 

CKYN*1 

SSUER+1 

SIL+1 

SILSW+1 

SCH*1 

SER + 1 

SECSOl 

SKIN1+1 

SKINO+1 

PDKYB*1 

PHKYBU 

EN00*2 

S2*4 

6INRY»161 

KEVIN »600 

ZERO+1 

BGNR*1 

ERR* I 

WCC*1 

MTRH+1 

TRFX+l 

TERM+1 

LWC*l 

LGROP+1 

STBF+1 

/COOA 

/OOOO 

/0003 

SSUER 

KEY 

SMI 

/8120 

SIL 
SW81 



PIO 

CO NO 

NO ENTRIES 

SET ERROR RETURN 

ENTER U 1ST 1443 



I 

L 
L 

1 

I 



BSI 1 

EOR L 
STO L 



SSUER 
KEY 
SM2 
/8120 

SILSW 

SWBI 
SMB1 

SSUER 
KEY 
SM3 
/8110 

SCH 

SkBl 

SrtBl 



CK INT LVL 
SAVE 

SET ERROR RETURN 
ENTER ILSh 1ST 1443 



Oil I SSUER 

BSI I key 
OC SM4 

OC /8000 



SKI 



BSI 
HOX 
MOX 

LO 
STO 



I CKYN 
SKI 
SK2 

K0078 

SWB3 



CK 1LSW BIT 
BUILD ODEF 
SAVE 

SET ERROR RETURN 
ENTER CH 1ST 1443 



CK CH NO 
8UIL0 OCEF 
SAVE 

SET ERROR RETURN 
OCES 1ST HAVE 120 



CK FOR V OR N 
ENTRY WAS V 
ENTRY WAS N 

GET 78 
SET 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 



SRC 

S^C 



SRC 



SRC 
SRC 



SRC 
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C40A0001 

C40A0002 

C40A0003 

C40A0004 

C40A0005 

C40A0006 

C40A0007 

C40A0008 

C40A0009 

C40A0010 

C40A0011 

C40A0OI2 

C40A0013 

C40A0014 

C40A0015 

C40A0016 

C40A0017 

C40A0018 

C40A0019 

C40A0020 

C40A0021 

C40A0022 

C4CA0023 

C40A0024 

C40A002S 

C40A0026 

C40A0027 

C40A0028 

C40A0029 

C40A0030 

C40A0031 

C40A0032 

C40A0033 

C40A0034 

C40A0035 

C40A0036 

C40A0037 

C40A0038 

C40A0039 

C40A0040 

C40A0041 

C40A0042 

C40A0043 

C40A0044 

C40A0045 

C40A0046 

C40A0047 

C40A0048 

C40A0049 

C40A0050 

C40A0051 

C40A0052 

C40A0053 

C40A00S4 

C40A0055 

C40A0056 

C40A0057 

C40A0058 

C40A0059 

C40A0060 

C40A0061 

C40A006? 

C40A0063 

C40A0064 

C40A0065 

C40A0066 

C4CA0067 

C40A0068 
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0C48 7005 

0C49 C003 

0C4A 0013 

OC4B 7002 



SK2 



MOX 

LD 
STO 

MOX 








0C4C 
0C40 
0C4E 00 
0C50 
0C51 01 
OC53 01 
OC55 01 
0C57 Ou 
0C59 1 
0C5A 00 



0078 

0090 

C4000430 

OOOC 

65800C17 

66800C18 

67800C19 

4 4800133 

0C5C 

4C00013A 



SK7 



0C5C COOO 
0C50 0000 
0C5E 0000 



0C5F 
0:68 
0C71 
0C7A 



0012 
0012 
0012 
0007 



K0078 OC 
K0090 OC 
SK3 LD 
STO 
LOX 
LOX 
LOX 
BSI 
OC 
BSC 
• 

SWBI OC 

SWB2 OC 

S«B3 OC 

• 



SK3 

K0090 

SWB3 

SK3 

/0078 
• 0090 
L TERM 
SbB2 

11 SKI1 

12 SKI2 

13 SK13 

I SECSU 

SWBI 
L S2 







GET 90 
SET 



CONSTANTS 

GET FFFF 

SET 

SET IX1NG 



SET CARO 

EXIT 

ENTRY STORAGE 



SRC 



CC7E FFFF 



0C7F 

0C88 
0C91 
0C9A 
0C9C 

0C9E 
OCA 7 
OCBO 
0CB9 
OCBC 



0012 
0012 
0012 
0005 
FFFF 

0012 
0012 
0012 
0006 
FFFF 

0012 
0012 
0012 
OOOC 



OCBD 
0CC6 
OCCF 
0C08 
OCDE FFFF 

CCDF 00 4C000138 
0CE2 OCOF 



SMI 



SH2 



SM3 



SM4 



EBC 
EBC 
EBC 
EBC 
OC 

EBC 
EBC 
EBC 
EBC 
OC 

EBC 
EBC 
EBC 
EBC 
OC 

EBC 
EBC 
EBC 
EBC 
OC 



•C001 PIO OA-CO 00. 

• ENTER 2 DIGIT OE. 
•CIMAL INTRPT LVL F. 

• OR 1443. 
/FFFF 

•C002 PIO OA-CO 00. 

• ENTER 2 DIGIT OE. 
-CIMAL ILSW BIT FOR. 

• 1443. 
/FFFF 

-C003 PIO OA-CO 00. 

• ENTER 1 DIGIT OE. 
•CIMAL CH NUMBER FO. 
-R 1443. 

/FFFF 

.C038 PID OA-CO 00. 

• OOES 1443 HAVE 1. 
.20 PRINT POSITIONS. 
•-TYPE V OR N. 
/FFFF 



END1 BSC L ENOO 
END EN01 



C40A0069 
C40A007O 
C40A0071 
C40A0072 
C40A0073 
C40A0074 
C40A0075 
C40A0076 
C40A0077 
C40A0078 
C40A0079 
C40A0080 
C40A0081 
C40A0082 
C40A0083 
C40A0084 
C40A0085 
C40A0086 
C40A0087 
C40A0088 
C40A0089 
C40A0090 
C40A0091 
C40A0092 
C40A0093 
C40A0094 
C40A0095 
C40A0096 
C40A0097 
C40A0098 
C40A0099 
C40A0100 
C40A010* 
C40A0102 
C40A0103 
C40A0104 
C40A0105 
C40A0106 
C40A01C7 
C40A0108 
C4UA0109 
C40A0110 
C40A0111 
C40A0112 
C40A0U3 
C40A0114 
C40A011 C40A0124 
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SYMBOL 

80NR 

eiNRY 

CKYN 

ENDO 

ENDl 

ERR 

KEY 

KEYIN 

K0078 

KOOSO 

IGROP 

LWC 

MTRM 

PDKY8 

PHKY8 

SCH 

SECSU 

SER 

SIL 

SILS* 

SKINO 

SKIM 

SKI1 

SKI2 

SKI3 

SKI4 

SKI 

SK2 

SK3 

SK7 

SMI 

SM2 

SM3 

SM4 

SRTRV 

SSUER 

STBF 

SWB1 

SW82 

SWB3 

S2 

TERM 

TRFX 

WCC 

ZERO 



DATE 
EC NO. 



VALUE 

0438 

013E 

012D 

0138 

OCOF 

0439 

012C 

010F 

0C4C 

0C40 

043F 

0436 

043B 

0136 

0137 

0131 

0133 

0132 

012F 

0130 

0135 

0134 

CC17 

0C18 

0C19 

0C1A 

0C46 

0C49 

0C4E 

0CS1 

0C5F 

0C7F 

0C9E 

OCBO 

0441 

012E 

0440 

0C5C 

0C5D 

UC5E 

C13A 

0430 

043C 
043A 
0437 



04N0V66 
415233 



REFERENCES 

0C17 

0C17 

0C17.0C42 

0C17, OCOF 

0CE1 

0C17 

0C17,0C1C,&C26,0C32,0C3E 

0C17 

0C46 

0C49 

0C17 

0C17 

0C17 

0C17 

0C17 

0C17.0C36 

0C17, 0C57 

0C17 

0C17.OC20 

0C17.0C2A 

0C17 

0C17 

0C51 

0CS3 

OC55 

0C44 
0C45 
0C48i 0C4B 

0C1E 
0C2B 
0C34 
0C40 

0Cl7,0ClA,0C24,0C30t0C3C 
0CI7 

0C22, 0C2C > CC2E, 0C38.0C3A.0C59 

0C50 

0C47.0C4A 

OC17.0C5A 

0C17.0C4E 

0C17 

0C17 

0C17 
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PART NO. 2242266 
P*GE 31A 



0000 






ORG 


01 2C 




KEY 


EQU 


0120 




CKYN 


EQU 


012E 




SSUER 


EQU 


012F 




SIL 


EQU 


0130 




SILSk 


EOU 


0131 




SCH 


EOU 


0132 




SER 


EOU 


0133 




SECSU 


EQU 


0134 




SKIN1 


EQU 


0135 




SKINO 


EQU 


0136 




POKYB 


EQU 


0137 




PHKYB 


EQU 


0138 




ENOO 


EQU 


013A 




S2 


EQU 


013E 




BINRV 


EOU 


01DF 




KfcYIN 


EQU 


0437 




ZERO 


EOU 


0438 




BGNR 


EQU 


0439 




ERR 


EQU 


043A 




WCC 


EOU 


043 B 




MTRM 


ECU 


043C 




TRFX 


EOU 


0430 




TERM 


EQU 


043E 




LWC 


EOU 


043F 




LGROP 


EQU 


0440 




STBF 


EOU 


0441 




SRTRY 


EQU 


0C17 


OOOA 


SKI1 


OC 


0C18 


FFFF 


SKI 2 


DC 


0C19 


0000 


SKIS 


OC 


0C1A 


oooo 


SKI 4 


OC 


0C1B 00 


4C000138 


EN01 


BSC 


0C1E 


0C1B 




END 



DATE 

EC NO. 
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♦♦3095 

300 

K6V*1 

CKYN*1 

SSUER »1 

SIL+1 

SILSW+l 

SCH*1 

SER + l 

SEC sun 

SKIN1*! 

SKINO+l 

P0KYB*1 

PHKYB*! 

ENDO+2 

S2*4 

BINKY+161 

KEYIN+600 

ZER0*1 

BGNR+1 

ERR+1 

WCC* I 

MTRH*1 

TRFX*1 

TE»M*1 

LWC*l 

LGR0P*1 

STBF*1 

/OOOA 

/FFFF 





ENOO 

ENDl 



C40A1001 
C40A1002 
C40A1003 
C40A1004 
C40A1005 
C40A1006 
C40A1007 
C40Ai008 
C40A1009 
' C40A1010 
C40A1011 
C40A1012 
C40A1013 
C40A1014 
C40A1015 
C40A1016 
C40A1017 
C40A1018 
C40A1019 
C40A1020 
C40A1021 
C40A1022 
C4CA1023 
C40A1024 
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CKYN 


0120 


0C17 0C40.0C57 


ENOO 


0138 


0C17.0DE4 


EM 01 


ODE 4 


00E6 


ERR 


0439 


0C17 


KEY 


012C 


0C17t0ClC,0C26,0C32t0C3Ct0C53,0C6 


KEY IN 


01DF 


0Cl7.0C63,CC70,0C73,OC77,OC88,OC8 
0C9C.0CAA 


K0001 


OCAE 


0C43 


K0008 


0CB1 


0C81 


K0056 


OCAF 


0C6D 


K1000 


OCBO 


0CA4 


LGROP 


043F 


0C17 


LMC 


043E 


0C17 


MTRM 


043B 


0C17 


POKYB 


0136 


0C17,0C79,0C9E 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17.0C36 


SECSU 


0133 


OC17 t 0C4E,0C60 


SER 


0132 


0C17,0C8B,0CBE,OCCl,OCC4,OCC7 


SE001 


OCCA 


0C8D, OCCO 


SE003 


OCEO 


0CC3 


SE004 


OCFA 


0CC6. 0CC9 


SIL 


012F 


CC17.0C20 


SILSU 


0130 


0C17.0C2A 


SKE01 


OCBE 


0C6E 


SKE03 


0CC1 


OCAS 


SKE04 


0CC4 


0C82 


SKE05 


0CC7 


0C7F 


SKINO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKI I 


0C17 


0C48.0C5A 


SKI2 


0C18 


0C4A 


SKI 3 


0C19 


0C4C 


SKI4 


0C1A 




SKIS 


OCBC 


0C5C 


SKI 6 


OCBO 


OC5E 


SKI 


0C46 


0C42 


SK2 


0C48 


0C4S 


SK3 


0C5A 


OCAO 


SK4 


0C65 


0C59 


SKS 


0C72 


OCAC 


SK6 


0C8S 


0C84 


SK7 


0C8E 


0C8A 


SMI 


0011 


0C1E * 


SM2 


0032 


0C28 


SM3 


0053 


0C34 


SM4 


0071 


0C3E 


SM5 


0092 


0C55 


SM6 


0CB2 


0C69 


SRTRY 


0441 




SSUER 


012E 


OC17,0ClAt0C24 t 0C30.CC3A,0CSltOC6S 


STBF 


0440 


0C17 


SMB1 


0CB2 


GC22taC2C t 0C2E,0C38t0C39t0C50 


SWB2 


0CB3 


0C44.CC47.0CA7 


S*B3 


0CB4 


0C62 


S2 


013A 


0C17.0C63 


TERM 


0430 


0C17,0C75,0C9A 


TRFX 


043C 


0C17 


UCC 


043A 


0C17 


ZERO 


0437 


OC17,0C7C>OCAl 
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0000 




ORG 


♦♦3095 


012C 




KEY ECU 


300 


0120 




CKVN ECU 


KEV+1 


012E 




SSUER ECU 


CKYN»l 


01 2 F 




Sit ECU 


SSUER*1 


0130 




SUSH EQU 


S1L«1 


0131 




SCH ECU 


S1LSW+1 


0132 




SEft EQU 


SCH+1 


0133 




SECSU EQU 


SER+1 


0134 




SKIN1 EQU 


SECSU*! 


0135 




SK1N0 EQU 


SKIN1*1 


0136 




PDHYB EQU 


SKINO+l 


0137 




PHKVB EQU 


PDKY8+1 


0138 




ENOO EQU 


PHKYB*! 


013A 




S2 EQU 


ENDO+2 


013E 




S1NRV EQU 


S2*4 


01DF 




KEVIN ECU 


BINRV+161 


0437 




ZERO EQU 


KEYIN+600 


0436 




BGSIR EQU 


ZERO*? 


0439 




ERR EQU 


BGNR*1 


043A 




WCC EQU 


ERR+1 


0438 




MTRM EQU 


WCC*1 


043C 




TRFX EQU 


MTRM*1 


0430 




TERM EOU 


TRFX+1 


043 E 




LUC EQU 


TERM* I 


043F 




LGRGP EQU 


LWC+l 


0440 




STBF EQU 


LGROP-U 


0441 




SRTR* EQU 


STBF*l 


0C17 


0008 


SKI 1 OC 


/OOOB 


0C18 


FFFF 


SKI 2 OC 


/FFFF 


0C19 


0000 


SKI 3 OC 





0C1A 


0000 


SK14 OC 





0C1B 00 


4C000138 


wot asc l 


ENOO 


0C1E 


ocia 


END 


EN01 
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C40B1001 
C40B1002 
C40B1003 
C40B1004 
C40B1005 
C40B1006 
C40B1007 
C40B100B 
C40B1009 
C40B1010 
C40B1011 
C40B1012 
C40B1013 
C40B1014 
C40B1015 
C4081016 
C40B1017 
C40B1018 
C40B1019 
C40B1020 
C4 OB 10 21 
C40B1022 
C40B1023 
C40B1024 
C4CB1025 
C40B1026 
C40B1027 
C40B1028 
C40B1029 
C40B1030 
C40B1031 
C40B1032 
C40B1033 
C4GB103 C40B1043 
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SYMBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENDO 


OliS 


0C17.0C1S 


END I 


0C1B 


0C1D 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEY IN 


010F 


0C17 


LGKOP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


043 a 


0C17 


POKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILSM 


0130 


0C17 


SKI NO 


0135 


0C17 


SKINl 


0134 


0C17 


SKI1 


0C17 




SK12 


0C18 




SKI3 


0C19 




SKI4 


OCIA 




SRTRY 


0441 




SSUER 


012E 


0C17 


STBf 


0440 


0C17 


S2 


013A 


0C17 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


MCC 


043A 


0C17 


ZERO 


0437 


0C17 
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0000 




012C 


• 


0120 




012E 




012F 




0130 




0131 




0132 




0133 




0134 




0135 




0136 




0137 




0138 




013A 




013E 




01 OF 




0437 




0438 




0439 




043A 




043 B 




043C 




0430 




043E 




043F 




0440 




0441 




0C17 


OOOF 


0C18 


0000 


0C19 


0002 


0C1A 00 


4480ul2E 


0C1C Ou 


4460012C 


0C1E 1 


0C76 


0C1F 


8120 



0C20 00 4480012F 
0C22 01 04000056 

0C24 00 4480012E 
0C26 00 4480012C 
0C28 1 0C97 
0C29 8120 

0C2A 00 44800130 
0C2C 01 F«C00056 
0C2E 01 04000056 

0C30 00 4480012E 

0C32 00 4480012C 

0C34 1 0CB8 

0C35 O 8210 

0C36 00 44800131 
0C38 01 F4000056 
0C3A 01 04000056 

0C3C 00 4480012E 
0C3E 00 4480012C 
0C4O 1 0C06 
0C41 8000 

0C42 00 44800120 
CC44 7001 
0C45 7020 

0C46 00 4480012E 
0C48 00 4480012C 



DATE 
EC NO. 
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ORG 
KEY EOU 
CKYN ECU 
SSJER EOU 
SIL EQU 
SILSW EOU 
SCH EOU 
SER EOU 
SECSU EOU 
SKIN1 EOU 
SKINO ECU 
POKYB EOU 
PHKYd EQU 
ENOO EOU 
S2 EQU 

BINRY EQU 
KEYIN EQU 
ZERO EQU 
BGNR EQU 
ERR EQU 
WCC EOU 

MTRM EQU 
TRFX EQU 
TERM EQU 
LWC EQU 
LGROP EOU 
STBF EQU 
SRTRY EQU 
SKI 1 DC 
SKI2 OC 
SKI 3 OC 
SKI4 8SI 



BSI 
OC 

DC 

BSI 
STO 

8SI 
BSI 
DC 
OC 

BSI 
EOR 
STO 



•♦3095 

300 

KEY*1 

CKYN*1 

SSUER+1 

SIL+1 

SILSW*! 

SCH*l 

SER*1 

SECSU*! 

SKIN1*1 

SKINOtl 

PDKYB+1 

PHKV8*1 

END0+2 

S2*4 

BINRV+161 

KEYIN+600 

ZERO* I 

6GNR+1 

ERR*1 

WCC*1 

MTRM*1 

TRFX*! 

TERM*1 

LWC*1 

LGROP+1 

STBF*1 

/OOOF 

/OCOO 

/0002 

SSUER 

KEY 

SMI 

/8120 

SIL 

SWB1 



PIO 

CO NO 

NO ENTRIES 

SET ERROR RETURN 

ENTER IL 1ST 



SSUER 
KEY 
SM2 
/8120 

SILSW 
SWBl 

SWB1 



BSI 1 SSUER 

BSI I KEY 
DC SM3 
OC /8210 

BSI I SCH 

EOR L SWBi 

STO L SW81 

BSI I SSUER 

BSI I KEV 
DC SM4 
DC /8000 



* 
SKI 



BSI 
MDX 
KOX 

BSI 

BSI 



CKYN 

SKI 

SK2 

SSUER 
KEY 



CHECK INT LVL 
SAVE 

SET ERROR RETURN 
ENTER ILSW 1ST 



CK ILSH BIT 
SAVE 

SET ERROR RETURN 
ENTER CH 1ST 



CK CHANNEL 
BUILD DOEF 
SAVE 

SET ERSCR RETURN 
IS 2ND ON SYSTEM 



CK FOR Y OR N 
ENTRY WAS Y 

ENTRY WAS N 

SET ERROR RETURN 
ENTER IL 2ND 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 



SRC 
SRC 
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C40F0001 

C40F0002 

C40F0003 

C40F0C04 

C40F0005 

C40F0006 

C40F0O07 

C40F0008 

C40F0009 

C40F0010 

C40F001 1 

C40F0012 

C40F0013 

C40F0014 

C40F0015 

C40F0016 

C40F0017 

C40F001S 

C40F0019 

C40F0020 

C40F0021 

C40F0022 

C40F0023 

C40F0024 

C40F0025 

C40F0026 

C40F0027 

C«0F002B 

C40F0029 

C40F0030 

C40F003I 

C40F0032 

C40F0033 

C40F0034 

C40F0035 

C40F0036 

C40F0037 

C40F0038 

C40F0039 

C40F0040 

C40F0041 

C40F0042 

C40F0043 

C40F0044 

C40F0045 

C40F0046 

C40F0047 

C40F0048 

C40F0049 

C40F0050 

C40F0051 

C40F0052 

C40F0053 

C40F0054 

C40F0055 

C40F0056 

C40F0057 

C40F0058 

C40F0059 

C40F0060 

C40F0061 

C40F0062 

C40F0063 

C40F0064 

C40F0065 

C40FO066 

C40F006? 

C40F0068 
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0C4A 1 
0C4B 



0CF6 
8120 



0C4C 00 4480012F 
0C4E 01 D4000057 

0C50 00 4480012E 
OC52 00 4480012C 
0C54 1 0017 
0C55 8120 

0C56 00 44800130 
0C58 01 F400OD57 
0C5A 01 D4000D57 

0C5C 00 4480012E 
0C5E 00 4480012C 
0C60 1 0D38 
0C61 8210 

0C62 00 44800131 
0C64 01 F4000D57 
0C66 01 04000D57 

0C68 01 65800C17 
0C6A 0! 6680UC18 
0C6C 01 67800C19 

0C6E 00 44800133 
0C70 1 0056 

0C71 00 4C00013A 

0C73 01 74FF0C19 
0C75 70F2 



* 
SK3 



0C76 
0C7F 

0C88 
0C91 
0C96 

0C97 
OCAO 
0CA9 
0CB2 
0CB7 

0CB8 
0CC1 
OCCA 
0CD3 
0C05 

0C06 
OCOF 
0CE8 
0CF1 
0CF5 

0CF6 
OCFF 
0D08 
0D11 
0D16 

0017 

0020 



DATE 
EC NO. 



0012 
0012 
0012 
0009 
FFFF 

0012 
0012 
0012 
0009 
FFFF 

0012 
0012 
0012 
0003 
FFFF 

0012 
0012 
0012 
0007 
FFFF 

0012 
0012 
0012 
0009 
FFFF 

0012 
0012 
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SK2 
SMI 



* 
SM2 



* 
SM3 



* 
SM4 



* 
SHS 



* 
SM6 



DC 
OC 

BSI I 
STO L 



SMS 
/8120 

SIL 

SmB2 



BSI I SSUER 

BSI I KEY 

OC SH6 

DC /8120 

BSI I SILSW 

EOR L SV.82 

STO L SW82 



8SI 
BSI 
DC 
OC 

BSI 
EOR 
STO 

LDX 

LDX 
LDX 

BSI 
OC 

8SC 

MDX 
MDX 

EBC 

EBC 
EBC 
EBC 
DC 

EBC 
EBC 
EBC 
EBC 
DC 

EBC 

ESC 
EBC 
EBC 

DC 

EBC 
EBC 
EBC 
ESC 
OC 

EBC 
EBC 
EBC 
EBC 
OC 

EBC 
EEC 



1 SSUER 

I KEY 
SM7 
/8210 

I SCH 
L SWB2 
L SWB2 

II SKIl 

12 SKI2 

13 SKI3 

I SECSU 
SWBI 

L SZ 

L SKI3.-1 
SK3 



CK INT LVL 
SAVE 

SET ERRCR RETURN 
ENTER ILSH 2ND 



CK ILSW BIT 

BUILD ODEF 
SAVE 

SET ERRCR RETURN 
ENTER CH 2ND 



CK CHANNEL 
BUILD ODEF 
SAVE 

SET IXING 



SET CARO 

EXIT 

DECR NO tNTRlES 



SRC 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 



SRC 



•C001 PIO OF-CD 00. 
. ENTER 2 OIGIT DE. 
-CIMAL INTR LVL FOR. 
. 1ST 1442. 
/FFFF 

•C002 PIO OF-CO 00. 
- ENTER 2 DIGIT OE. 
.CIMAL ILSW BIT FOR. 
. 1ST 1442. 
/FFFF 

•C003 PID OF-CO 00. 

• ENTER 1 OIGIT CE. 
•CIMAL CH FOR 1ST 1. 
.442. 

/FFFF 

• C005 PIO OF-CO 00. 
. DOES THIS SYSTfcP. 

• HAVE 2 1442S-TYPE. 
. V OR N. 

/FFFF 

•C001 PID OF-CO 00. 
. ENTER 2 DIGIT Dfc. 
•CIMAL INTR LVL FOR. 
. 2ND 1442. 
/FFFF 

.C002 PIO OF-CD 00. 
. ENTER 2 DIGIT OE. 
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C40F0069 

C40F0070 

C40F0071 

C40F0072 

C40F0073 

C40F0074 

C40F0075 

C40F0076 

C40F0077 

C40F0078 

C40F0079 

C40F0080 

C40F0081 

C40F0082 

C40F0083 

C40F0084 

C40F0085 

C40F0086 

C4GF0087 

C40F0088 

C40F0089 

C40F0090 

C4uF0091 

C40F0092 

C40F0093 

C40F0094 

C40F0095 

C40F0096 

C40F0097 

C40F0098 

C40F0099 

C40F0100 

C40F0101 

C40F0102 

C40F0103 

C40F0104 

C40F0105 

C40F0106 

C40F0107 

C40F0108 

C40F0109 

C40F0110 

C40FC111 

C40F0112 

C40F0113 

C40F0114 

C40F0115 

C40F0116 

C40F0117 

C40F0118 

C40F0119 

C40F0120 

C40F0121 

C40F0122 

C40F0123 

C40F0124 

C40F0125 

C40F0126 

C40F0127 

C40F0128 

C40F0129 

C40F0130 

C40F0131 

C40F0132 

C40F0133 

C40F0134 

C40F0135 

C40F0136 
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PACE 37 



( ( < ( ( ( ( ( ( ( ( ( ( 

c c c c c: r ( c ( • c c ( c 



t 

t 
t 



0029 


0012 




EbC 


•CIMAL ILSU 8IT FOR. 


C40F0137 


0D32 


0009 




EBC 


. 2ND 1442. 


C40F0138 


0037 


FFFF 


* 


DC 


/FFFF 


C40F0139 
C40F0140 


0038 


0012 


Sf7 


EBC 


.C003 PIO OF-CO CO. 


C40F0141 


0041 


0012 




EBC 


. ENTER 1 DIGIT CE. 


C40F0142 


004 A 


0012 




EBC 


.CIMAL CH FOK 2ND J. 


C40F0143 


0053 


0003 




EBC 


.442. 


C40F0144 


0055 


FFFF 


• 
• 


OC 


/FFFF 


C40F0145 
C40F0146 
C40FO147 


0056 


0000 


SWB1 


DC 


DDEF STORAGE 


C40F0148 


005 7 


0000 


SWB2 


OC 





C40F0149 


0058 00 


4C000138 


EN01 


BSC L ENOO 


C40F0150 


0D5A 


0056 




ENO 


EN01 


C40F015 C40F0160 



u 






r, 
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SYMBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


eiNRY 


013E 


0C17 


CKYN 


0120 


0C17.0C42 


ENOO 


0138 


OC 17, 0058 


EN01 


0058 


005A 


ERR 


0439 


0C17 


KEY 


012C 


0C4?,OClC.0C26,0C32,GC3EtOC48,OC52,OC5E 


KEY1N 


OlDF 


0C17 


LGROP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


0438 


0C17 


PDKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17, 0C36.0C62 


SECSU 


0133 


0C17.0C6E 


SER 


0132 


0C17 


S1L 


012F 


0C17,OC2O,OC4C 


SILSW 


0130 


0C17.OC2A.0C56 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKU 


0C17 


0C68 


SKI 2 


0C18 


0C6A 


SKI 3 


0C19 


0C6C.OC73 


SKI4 


0C1A 




SKI 


0C46 


0C44 


SK2 


0C73 


0C45 


SK3 


0C68 


OC75 


SMI 


0C76 


0C1E 


SM2 


0C97 


0C2B 


SM3 


0CB8 


0C34 


SM4 


0C06 


0C40 


SM5 


0CF6 


0C4A 


SM6 


0017 


0C54 


SM7 


0038 


0C60 


SRTRY 


0441 




SSUER 


012E 


OC17.0ClA,OC24,OC30tOC3CtOC46.0C50.0C5C 


STBF 


0440 


0C17 


SWBl 


0056 


0C22.0C2C.0C2E,0C38,0C3A,0C70 


SWB2 


0057 


0C4E,0CS8,0C5A,0C64,0C6& 


S2 


013A 


OC17.0C71 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


HCC 


043A 


0C17 


ZERO 


0437 


0C17 
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0000 




ORG 


•♦3095 


01 2 C 




KEY EOU 


300 


0120 




CKYN EOU 


KEY*1 


012E 




SSUEf EOU 


CKYN*1 


012F 




SIL EOU 


SSUER*l 


0130 




SILSW EOU 


SIL»1 


0131 




SCH EOU 


SILSW«l 


0132 




SER EQU 


SCH*1 


0133 




SECSU EGU 


SER*1 


0134 




SKIN1 EOU 


SECSU»1 


0135 




SKI NO EOU 


SKIN1*! 


0136 




POKYB EOU 


SK1N0+1 


0137 




PHKYB ECU 


PDKY8*l 


0138 




ENDO EOU 


PHKYB*1 


013A 




S2 EOU 


£ND0*2 


013E 




BINRY EOU 


S244 


01DF 




KEYIN EOU 


BINRY+161 


0437 




ZERO EOU 


KEYIN«600 


0438 




BGNR ECU 


2ER0+1 


0439 




ERR EOU 


BGNR* I 


043A 




WCC EOU 


tRR*l 


043 B 




MTRM EQU 


WCC + 1 


043C 




TRFX EOU 


MTRM*1 


0430 




TERM EOU 


TRFX*1 


043 E 




LWC EOU 


TERM* I 


043F 




LGROP EQU 


LWC*1 


0440 




STBF EOU 


LGROP+l 


0441 




SRTRY EQU 


STBr*l 


0C17 


OOOF 


SKI1 OC 


/OOOF 


0C18 


FFFF 


SKI 2 OC 


/FFFF 


0C19 


0000 


SKI 3 DC 





0C1A 


0000 


SKI 4 DC 





0C1B 00 


4C000138 


EN01 BSC L 


ENOO 


0C1E 


0C1B 


END 


END1 



C40F1001 
C40F1002 
C40F1003 
C40F1004 
C40F1005 
C40F1006 
C40F1007 
C40F1008 
C40F1009 
C40F1010 
C40F1011 
C40F1012 
C40F1013 
C40F1014 
C40F1015 
C40F1016 
C40F1017 
C40F1018 
C40F1019 
C40F1020 
C40F1021 
C40F1022 
C40F1023 
C40F1024 
C40F1025 
C40F1026 
C40F1027 
C40F1028 
C40F1029 
C40F1030 
C40F1031 
C40F1032 
C40F1033 
C40F103 C40F1043 
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SYMBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENDO 


0138 


0C17.0C1B 


END1 


ocia 


0C1D 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEYIN 


010F 


0C17 


LGROP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


043B 


0C17 


PDKYB 


0136 


0C17 


PHKYe 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILSta 


0130 


0C17 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKU 


0C17 




SKI2 


0C18 




SKI3 


0C19- 




SKI4 


0C1A 




SRTRY 


0441 




SSUER 


012E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


043D 


0C17 


TRFX 


C43C 


0C17 


WCC 


043A 


0C17 


ZERO 


0437 


0C17 
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0000 

012C 

0120 

012E 

012F 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

013A 

013E 

01DF 

0437 

0438 

0439 

043A 

0438 

043C 

0430 

043 E 

043F 

0440 

0441 

0C17 ( 

COS I 

0C19 ( 



0028 
0000 
0002 



0C1A 00 4480012E 

0C1C 00 4480012C 

0C1E 1 0C53 

0C1F 8120 

0C20 00 4480012F 
0C22 002E 

0C23 00 4480012E 

0C25 00 4460012C 

0C27 I 0C77 

0C28 8120 

0C29 00 44600130 
0C2B F025 
0C2C 0024 

0C2D 00 4480012E 
0C2F 00 448001 2C 
0C31 1 0C98 
0C32 8210 

0C33 00 44800131 
0C35 F01B 
0C36 D01A 

0C3 7 00 4480012E 

0C39 00 4480012C 

0C3B I OCBC 

0C3C 8000 

0C30 00 44800120 
OCJF 7001 
0C40 7002 



0C41 O 
0C42 



DATE 
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7001 
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KEY 

CKYN 

SSUEK 

S1L 

SILSM 

SCH 

SER 

SECSU 

SKIN1 

SKI NO 

POKYB 

PHKYB 

ENDO 

S2 

BINRY 

KEYIN 

ZERO 

BGNR 

ERR 

wcc 

MTRM 

TRFX 

TERM 

LV.C 

LGROP 

STBF 

SRTRY 

SKI 1 

SKI2 

SKI 3 

SKI4 



ORG 

EQU 

EOU 

EQU 

EOU 

EOU 

EOU 

EOU 

EOU 

EOU 

EQU 

EOU 

EQU 

EQU 

EQU 

EOU 

EOU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EOU 

EQU 

EQU 

EQU 

OC 

DC 

OC 

8S1 

BSI 

OC 

OC 

BSI 
STO 



1 



•♦3095 
300 
KEV*1 
CKYN* I 

SSUER*! 
SIL*1 
SILSW*! 
SCH*! 
SER* I 

secsu+i 

SK1N1+1 

SKINO*! 

PDKVB*1 

PHKYBU 

ENOO+2 

S2*4 

BINRY*161 

KEYIN*600 

2ER0*1 

BGNR*1 

ERR*1 

«CC*1 

MTRM*1 

TRFX*1 

TERM*! 

LWC*1 

LGR0P*1 

STBF* I 

/0028 

/OOOO 

/0002 

SSUER 

KEY 

SMI 

/8120 

S1L 

SMB1 



PIO 

fO NO 

NO ENTRIES 

SET ERROR CONTROL 

ENTER 1L 



BSI 
BSI 

OC 
OC 

BSI 
EOR 
STO 



BSI I 

asi i 

DC 

DC 

BSI 1 

EOR 

STO 



BSI 
BSI 
OC 
DC 



SSUER 
KEY 
SM2 
/8120 

SILSW 

SWB1 

SWB1 

SSUER 
KEY 
SM3 
/8210 

SCH 

SHB1 

ShBl 

SSUER 
KEY 
SM4 
/8000 



a 
SK2 



BSI 1 CKYN 
MDX SK2 
HOX SKI 



SLA 

MOX 



16 
SK3 



CK INTR LVL 
SAVE 

SET ERROR RETURN 
ILSW BIT 



CK ILSW BIT 
BUILD DDEF 
SAVE 

SET ERROR RETURN 
ENTER CH 



CK CHANNEL 
BUILD ODEF 
SAVE 

SET ERROR RETURN 
IS MEM SPEED 2 MIC 



C< FOR Y OR 
EMTRY WAS V 
EVTRY WAS N 

C.EAR ACCUM 



SRC 

SRC 



SRC 



SRC 
SRC 



SRC 



SRC 
SRC 
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C4280001 

C4280002 

C4280003 

C4280004 

C4280005 

C4260006 

C42S0007 

C4280008 

C42 80009 

C4280010 

C428C011 

C4280012 

C42C0013 

C4260014 

C4260015 

C4260016 

C4280017 

C4280018 

C4280019 

C4280020 

C4280021 

C4280022 

C4260023 

C4280024 

C4280025 

C4280026 

C4280027 

C4280028 

C4260029 

C4280030 

C42&0031 

C4280032 

C42 80033 

C4280034 

C4280035 

C4260036 

C4280037 

C4280038 

C4260039 

C4280040 

C42 80041 

C42 80042 

C4280043 

C4280044 

C42 80045 

C4260046 

C4280047 

C4280048 

C42 80049 

C4280050 

C4280051 

C4280052 

C42B0053 

C42 80054 

C4280055 

C4280056 

C4280057 

C4280058 

C4280059 

C4280060 

C42 60061 

C4260062 

C4260063 

C42 80064 

C4280065 

C4280066 

C428006T 

C4280068 
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0C43 
0C44 

0C45 01 
0C4 7 01 
0C49 01 

CC4B 00 
0C4D 1 



COCC 
0000 

6 5600C17 
66800C18 
67800C19 

44800133 
OC&l 



SKI 
SK3 



LD 
STO 



K0001 
SWB2 



LDX 11 SKI1 
«-0X 12 SKI2 
LOX 13 SKI3 



0C4E 00 4C00013A 
0C50 0001 



0C51 
0C52 

0C53 
0C5C 
0C65 
0C6E 



0000 
0000 

0012 
0012 
0012 
OOOF 



0C76 FFFF 



0C77 
0C80 
0C89 
0C92 



0012 
0012 
0012 
OOOF 



0C9A FFFF 



CCVB 
0CA4 
OCAO 
0CB6 



0012 
0012 
0012 
0009 



CCB8 FFFF 

OCBC 0012 

0CC5 0012 

OCCE 0012 

0CD7 0000 

OCDE FFFF 

OCDF 00 4C000138 

0CE2 OCDF 



OATE 
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BSI 
OC 

BSC 

K0001 OC 

• 

SWB1 

S«&2 
• 



OC 

OC 



SMI 



* 
SM2 



SM3 



* 
SM4 



EN01 



fcBC 
EBC 
EBC 
EBC 
OC 

EBC 
EBC 
EBC 
EBC 
OC 

EBC 
EBC 
EBC 
EBC 
DC 

EBC 
EBC 
EBC 
FBC 

OC 

BSC 

END 



I 



SECSU 
SWB1 



L S2 

1 

3 

3 



GET 1 

SET MEM SPEED 

SET IXING 



SET CARD 

EXIT 

CONSTANT 
DATA STORAGE 



• COOI PIO 28-CD 00. 
. ENTER 2 01GIT DE. 
•CIMAL INTR LVL FOR. 
. 360 CH AOAPTER. 
/FFFF 

-C002 PIO 28-C0 00. 
. ENTER 2 OIGIT DE. 
•CIMAL ILSW BIT FOR. 
• 360 CH AOAPTER. 
/FFFF 

-C003 PID 28-CD 00. 

- ENTER 1 DIGIT DE. 
-CIMAL CH FOR 360 C. 
.H AOAPTER. 

/FFFF 

-C010 PI3 28-CD 00. 

- IS MEM SPEEO FOR. 
. THIS SYS 2 MICRSE. 
•C-TYPE V CR N. 
/FFFF 

LNOO 
END1 



C4260069 
C4280070 
C4280071 
C4280072 
C4260073 
C42B0074 
C4260075 
C4280076 
SRC C4280077 
C4280078 
C428007? 
C4280080 
C4280081 
C4280082 
C4280083 
C42 80084 
C4280085 
C42&0086 
C4280037 
C42&0088 
C42 80089 
C4280090 
C42 80091 
C4280092 
C4280093 
C4280094 
C4280095 
C42 80096 
C4260097 
C428009B 
C42 80099 
C4280100 
C4280101 
C4280102 
C4280103 
C4260104 
C4280105 
C42&0106 
C4280107 
C4280108 
C -.260109 
C42B0110 
C42S011 C4260120 
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SYMBOL 


VALUE 


REFERENCES 


EGNR 


0438 


0C17 


BINRY 


0I3E 


0C17 


CKYN 


0120 


0C17.0C30 


ENOO 


0138 


0C17.0CDF 


EN01 


OCOF 


CCE1 


ERR 


0439 


0C17 


KEY 


0J2C 


0C17.0ClCi0C2St0C2F.0C39 


KEYIN 


01DF 


0C17 


K0001 


0C50 


0C43 


LGROP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


043B 


0C17 


PDKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17.0C33 


SECSU 


0133 


0C17.0C48 


SER 


0132 


0C17 


SIL 


012F 


0C17.0C20 


SILSM 


0130 


0C17.UC29 


SKI NO 


0135 


0C17 


SK1N1 


0134 


0C17 


SKI1 


0C17 


0C45 


SKI2 


CC18 


0C47 


SKI3 


0C19 


0C49 


SKI4 


0C1A 




SKI 


0C43 


0C40 


SK2 


0C41 


0C3F 


SK3 


0C44 


0C42 


SMI 


0C53 


0C1E 


SM2 


0C77 


0C27 


SM3 


0C9B 


0C31 


SM4 


OCBC 


0C3B 


SRTRV 


0441 




SSUER 


012E 


0C17,OClA.OC23.0C20t0C37 


STBF 


0440 


0C17 


SHB1 


0C51 


OC22.OC2B.0C2Ct0C3St0C36.OC4D 


SWB2 


0C52 


0C44 


S2 


013A 


0C17.0C4E 


TERM 


0430 


0C17 


TKFX 


04 3C 


0C17 


HCC 


043A 


0C17 


ZERO 


0437 


0C17 
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0000 






ORG 


♦♦3095 


012C 




KEY 


EQU 


300 


0120 




CKYN 


EQU 


<EV*1 


012E 




SSUER 


EQU 


CKYN*1 


012F 




SIL 


EOU 


SSUER*! 


0130 




SILSM 


EQU 


SIL*1 


0131 




SCH 


EOU 


SILSh*l 


0132 




SER 


EQU 


iCH+l 


0133 




SECSU 


EQU 


SER*1 


0134 




SKIN1 


EQU 


SECSU*! 


0135 




SKI NO 


EQU 


SK1N1+1 


0136 




POKYB 


EQU 


SKINO*i 


0137 




PHKYB 


EQU 


P0KVB«1 


0138 




ENDO 


EOU 


PHKYB*1 


013A 




S2 


EQU 


ENOO* 2 


013E 




8INRY 


EOU 


S2*4 


010F 




KEYIN 


EQU 


UINRY*16l 


0437 




ZERO 


EQU 


KEY1N+600 


0438 




BGNR 


EQU 


ZER0*1 


0439 




ERR 


EQU 


BGNR+1 


043A 




HCC 


EQU 


fcRR*l 


043B 




MTRM 


EQU 


HCC*1 


043C 




TRFX 


EQU 


MTRM* I 


0430 




TERM 


EQU 


TRFX*1 


043E 




Lh'C 


EQU 


TERM+1 


043F 




LGROP 


EQU 


LHC*1 


0440 




STBF 


EOU 


LGR0P*1 


0441 




SRTRY 


EQU 


STBF+1 


0C17 


0028 


SKI1 


DC 


/0028 


0C18 


FFFF 


SKI 2 


DC 


/FFFF 


0C19 


0000 


SKI 3 


DC 





CC1A 


0000 


SKI 4 


OC 





0C1B 00 


4C000138 


EN01 


BSC L ENOO 


0C1E 


0C1B 




END 


EN01 
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SYMBOL 


V4I.UE 


REFERENCES 


BGNR 


0436 


0C17 


BINRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENOO 


0138 


0C17.CC1B 


EN 01 


0C1B 


0C10 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEYIN 


010F 


0C17 


LGROP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


043B 


0C17 


POKYB 


0136 


0C17 


PHKY6 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILS* 


0130 


0C17 


SKI NO 


0135 


0C17 


SK1N1 


0134 


0C17 


SKI1 


0C17 




SKI2 


0C18 




SKI3 


0C19 




SKI 4 


0C1A 




SRTRY 


0441 




SSUER 


012E 


0C17 


ST8F 


0440 


0C17 


S2 


013A 


0C17 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


WCC 


043A 


0C17 


ZERO 


0437 


0C17 
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0000 

012C 

0120 

012E 

012F 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

013A 

013E 

01 OF 

0437 

0438 

0439 

043A 

043B 

043C 

0430 

043E 

043F 

0440 

0441 

0C17 

0C18 

0C19 i 

0C1A i 



0029 

0000 
0002 
4460012E 



0C1C 00 4480012C 
0C1E I 0C53 
0C1F 8120 

0C20 00 4480012F 
0C22 002E 

0C23 00 4480012E 

0C25 00 448C012C 

0C27 1 0C77 

0C28 8120 

0C29 00 44800130 
PC2B F025 
0C2C D024 

0C20 00 4480012E 
0C2F 00 4480012C 
0C31 1 0C9B 
0C32 8210 

0C33 00 44800131 
0C35 F01B 
0C36 001A 

OC37 00 4480012E 
0C39 00 4480012C 
0C3B 1 0C8C 
0C3C 8000 

0C30 00 44800123 
0C3F 7001 
0C40 700; 



0C41 
0C42 



DATE 
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KEY 

CKYN 

SSUER 

SIL 

SILSM 

SCH 

SER 

SfcCSU 

SK1N1 

SKI NO 

PDKYB 

PHKY3 

ENOO 

%Z 

BINRY 

KtYIN 

ZERO 

BGNR 

ERR 

WCC 

MTRM 

TRFX 

TERM 

LWC 

LGROP 

STBF 

SRTRY 

SKU 

SKI2 

SKI 3 

SK14 



ORG 
ECU 

EOU 

EOU 

EUU 

EOU 

EQU 

EOU 

EOU 

EOU 

ECU 

EOU 

EOU 

EOU 

EQU 

EQU 

ECU 

EQU 

ECU 

EQU 

EQU 

ECU 

EQU 

EQU 

EQU 

EQU 

ECU 

EQU 

oc 

oc 

DC 

BSI 

BSI 

OC 

DC 

BSI 
STO 

BSI 
BSI 

OC 

OC 

BSI 
EOR 
STO 



♦♦3095 
300 
KEV*1 
CKYN* I 

SSUERU 

SIL*1 

SILSW+1 

SCH*1 

StR*l 

S£CSU*l 

SKIN1+1 

SKIN0*1 

PDKYB*1 

PHKYB+l 

END0+2 

S2*4 

BlNRY*16l 

KEVIN-* 600 

ZER0*1 

BGNR* I 

ERR*1 

WCC*1 

HTRM+1 

TRFX*l 

TERM*1 

LwC*l 

LGROP+l 

STBF* I 

/0029 

/OOOO 

/0002 

SSUER 

KEY 

SMI 

/8120 

SIL 

SUB1 



PIO 
CO NO 

NO ENTRlfc* 

SET ERROR CONTROL 

ENTER IL 



SSUER 
KEY 
SM2 
• 8120 

SILSW 

SS.B1 
SW81 



BSI I SSUER 

BSI I KEY 
DC SM3 
OC /8210 

BSI I SCH 
EOR SMB1 
STO SkBl 



9 

SK2 



BSI 
BSI 
OC 
DC 

BSI 

MDX 

MOX 

SLA 

MDX 



SSUER 
KEY 

SM4 
/8000 

CKYN 

SK2 

SKI 

16 
SK3 



CK INTR LVL 
SAVE 

SET ERROR RETURN 
ILStt 8IT 



CK ILSW BIT 
BUILD OOEF 
SAVE 

SET ERROR RETURN 
ENTEP CH 



CK CHANNEL 
BUILD ODEF 
SAVE 

SET ERROR RETURN 
IS MEM SPEED 2 MIC 



CK FOR Y OR N 
ENTRY HAS V 
ENTRY HAS N 

CLEAR ACCUW 



SRC 
SRC 



SRC 



SRC 

SRC 



SRC 



SRC 
SRC 



SRC 



SRC 
SRC 



SRC 
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C4290001 

C4290002 

C4290003 

C42 90004 

C4290005 

C4290006 

C4290007 

C4290008 

C4290009 

C4290010 

C4290011 

C4290012 

C4290013 

C4290014 

C4290015 

C4290016 

C4290017 

C4290018 

C4290019 

C4290020 

C4290021 

C4290022 

C4290023 

C4290024 

C4290025 

C4290026 

C4290027 

C4290028 

C42 90029 

C4290030 

C4290031 

C4290032 

C4290033 

C4290034 

C4290035 

C4290036 

C4290037 

C4290038 

C4290039 

C4290040 

C4290041 

C4290042 

C4290043 

C4290044 

C4290045 

C4290046 

C4290047 

C42 90048 

C42 90049 

C4290050 

C4290051 

C4290052 

C4290053 

C42?0054 

C4290055 

C4290056 

C4290057 

C4290058 

C4290059 

C4290060 

C4290061 

C4290062 

C4290063 

C4290064 

C4290065 

C4290066 

C4290067 

C4290068 
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(' ( 

I * 

C I t 



(<(<(<<<<<(<<((< 



OC43 
0C44 



cooc 

0000 



0C45 01 65800C17 
0C47 01 66800C18 
0C49 01 67eOOC19 

0C4E 00 44800133 
OC4 1 0C51 

0C4E 00 4C00013A 



0C50 





0001 


0C51 





0000 


0C52 





oooo 


OC53 




0012 


0C5C 




0012 


0C6S 




0012 


0C6E 




OOOF 


0C76 





FFFF 


OC77 




0012 


0C80 




0012 


0C89 




0012 


0C92 




OOOF 


0C9A 





FFFF 


0C9B 




0012 


0CA4 




0012 


OCAO 




0012 


0C86 




0009 


OCBB 





FFFF 


OCBC 




0012 


0CC5 




0012 


OCCE 




0012 


0C07 




0000 



OCOE FFFF 
OCOF 00 4C000136 
0CE2 OCOF 



CATE 
EC NO. 



04N0V66 
415233 



♦ 










SKI 
SK3 

• 


LO 
STQ 




K0001 
SMS2 


GET 1 

SET MEM SPEEO 


* 


LOX 
LOX 
LOX 


11 SKIl 

12 SKI2 

13 SKI3 


SET I XING 


• 


dSI 

oc 


I 


SECSU 

SWB1 


SET CARD 


• 


BSC 


L 


S2 


EXIT 


KOOO] 

* 


oc 




1 


CONSTANT 


SwBl 

SWd2 


OC 
DC 








DATA STORAGE 


SHI 


EBC 
EBC 
EBC 
EBC 
DC 




.C001 P1D 29-CO 00. 

. ENTER 2 DIGIT DE. 
.CIMAL INTR LVL FOR. 
. 360 CH ADAPTER. 
/FFFF 


SH2 

* 


EBC 
EbC 
E8C 
EBC 
OC 




• C002 PID 29-CD 00. 
. ENTER 2 DIGIT DE. 
.CIMAL ILSW BIT FOR. 
. 360 CH ADAPTER. 
/FFFF 


SM3 


EBC 
E6C 
EBC 
EBC 
OC 




• C003 P10 29-CD 00. 
. ENTER 1 DIGIT OE. 
.CIMAL CH FOR 360 C. 
.H ADAPTER. 
/FFFF 


SN4 


EBC 
EBC 
EBC 
EBC 
DC 




.CblO PID 29-CO 00. 
. IS MEM SPEED FOR. 
. THIS SYS 2 M1CRSE. 
.C-TVPE Y OR N. 
/FFFF 



EK01 BSC L ENDO 



END 



EN01 



C4290069 
C4290070 
C42 90071 
C4290072 
C4290073 
C4290074 
C4290075 
C4290076 
SRC C4290077 
C4290078 
C4290079 
C4290080 
C4290081 
C4290082 
C4290083 
C4290084 
C42 90085 
C4290086 
C4290087 
C4290088 
C4290089 
C4290090 
C42 90091 
C4290092 
C4290093 
C4290094 
C4290095 
C4290U96 
C4290097 
C4290098 
C4290099 
C4290100 
C4290101 
C4290102 
C4290103 
C4290104 
C4290105 
C4290106 
C4290107 
C4290108 
C4290109 
C4290110 
C429011 C4290120 
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SYMBOL 


VALUE 


REFERENCES 


BGNR 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


0120 


0C17.0C30 


ENDO 


0138 


0C17.0CDF 


END1 


OCDF 


0CE1 


ERR 


0439 


0C17 


KEY 


012C 


OC17,OClCtOC2 5,OC2F,OC3» 


KEYIN 


010F 


0C17 


K0001 


0C50 


0C43 


LGRGP 


043F 


0C17 


LWC 


043E 


0L17 


MTRM 


043B 


0C17 


PDKYB 


0136 


0C17 


PHKYB 


0137 


0C17 


SCH 


0131 


0C17.0C33 


SECSU 


0133 


0C17.0C4B 


SER 


0132 


0C17 


SIL 


012F 


OC17.0C20 


SILSh 


0130 


0C17.0C29 


SKI NO 


0135 


0C17 


SKIH1 


0134 


0C17 


SKIl 


0C17 


0C45 


SKI2 


0C18 


0C47 


SKI 3 


0C19 


0C49 


SKI4 


0C1A 




SKI 


0C43 


0C40 


SK2 


0C41 


0C3F 


SK3 


0C44 


0C42 


SMI 


0C53 


0C1E 


SM2 


OC77 


0C27 


SM3 


0C9B 


0C31 , 


SM4 


OCBC 


0C3B 


SRTRV 


0441 




SSUER 


012E 


0C17,0C1A,0C2 3,0C2D,0C37 


STBF 


0440 


0C17 


SWB1 


0C51 


0C22t 0C2B, 0C2C,0C35,0C36, 


SWB2 


0C52 


0C44 


S2 


013A 


0C17.0C4E 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


WCC 
ZERO 


043A 
0437 


0C17 
0C17 



DATE 
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0000 






ORG 


•♦3095 


012C 




KEY 


EOU 


300 


0120 




CKYN 


EGU 


K£Y*1 


012E 




SSUER 


EQU 


CKYN*l 


012F 




SIL 


EUrU 


SSUER*! 


0130 




SILSW 


EUU 


S1L*1 


0131 




SCH 


ECU 


SlLSW+1 


0132 




SER 


EQU 


SCH*1 


0133 




SECSU 


EOU 


SER*1 


0134 




SK1N1 


EOU 


secsuu 


0135 




SKI NO 


ECU 


SKIM+1 


0136 




POKYB 


EOU 


SKINO+1 


0137 




PHKYb 


EOU 


POKYB*! 


0138 




ENOO 


EOU 


PHKVB+l 


013A 




S2 


EOU 


END0+2 


013E 




BINRY 


EOU 


S2*4 


CI OF 




KEY IN 


EQU 


81NRY+161 


0437 




ZERO 


EQU 


KEYIN*600 


0438 




BGNR 


EOU 


Z£R0*1 


0439 




ERR 


EOU 


BGNR*1 


043A 




WCC 


ECU 


ERR*1 


043B 




MTRM 


EOU 


WCC+l 


043C 




TRFX 


EOU 


MTRM* 1 


043D 




TERM 


EOU 


TRFX*i 


043E 




LMC 


ECU 


TERM* I 


043F 




LGROP 


EOU 


LWC*1 


0440 




STBF 


EOU 


LGROP*! 


0441 




SRTRY 


EQU 


STBF*i 


0C17 


0029 


SKI1 


DC 


/0029 


0C18 


FFFF 


SKI2 


DC 


/FFFF 


0C19 


0000 


SKI 3 


DC 





0C1A 


0000 


SKI4 


DC 





0C1U 00 


4C000138 


EN01 


BSC L ENOO 


0C1E 


0C1B 




ENO 


EN01 



CATE 
EC NO. 
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415233 



PART NO. 
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C4291001 
C4291002 
C4291003 
C4291004 
C429100S 
C4291006 
C4291007 
C4291008 
C4291009 
C4291010 
C4291011 
C4291012 
C4291013 
C4291G14 
C429101S 
C4291016 
C4291017 
C429I018 
C4291019 
C4291020 
C4291021 
C4291022 
C4291023 
C4291024 
C4291025 
C4291026 
C4291027 
C4291028 
C4291029 
C4291030 
C4291031 
C4291032 
C4291033 
C429103 C4291043 
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SVMdOL 


VALUE 


RfcFERENCES 


BGNk 


0438 


0C17 


BINRY 


013E 


0C17 


CKYN 


0120 


0C17 


ENDO 


0136 


0C17.CC1B 


EN01 


0C1B 


0C1D 


ERR 


0439 


0C17 


KEY 


012C 


0C17 


KEY IN 


OlOF 


0C17 


LGROP 


043F 


0C17 


LWC 


043E 


0C17 


MTRM 


043B 


0C17 


POKYB 


0136 


0C17 


PHKYfa 


0137 


0C17 


SCH 


0131 


0C17 


SECSU 


0133 


0C17 


SER 


0132 


0C17 


SIL 


012F 


0C17 


SILSta 


0130 


0C17 


SKI NO 


0135 


0C17 


SKIN1 


0134 


0C17 


SKI1 


0C17 




SKI2 


0C18 




SKI 3 


0C19 




SKI 4 


0C1A 




SRTRY 


0441 




SSUER 


012E 


0C17 


STBF 


0440 


0C17 


S2 


013A 


0C17 


TERM 


0430 


0C17 


TRFX 


043C 


0C17 


hCC 


043A 


0C17 


2ER0 


0437 


0C17 



CATE 
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